(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    236961,       5282]
NotebookOptionsPosition[    231865,       5151]
NotebookOutlinePosition[    232220,       5167]
CellTagsIndexPosition[    232177,       5164]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Calibrated", " ", "Parameters"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Use", " ", "CPI", " ", "data", " ", 
      RowBox[{"http", ":"}]}], "//", 
     RowBox[{
      RowBox[{
       RowBox[{"www", ".", "bls", ".", "gov"}], "/", "data"}], "/", 
      RowBox[{"inflation_calculator", ".", "htm"}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"New", " ", 
     RowBox[{
      RowBox[{"2", "/", "2"}], "/", "2015."}], " ", "Convert", " ", 
     "everyting", " ", "to", " ", "2014", " ", "dollars"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"So", " ", "CPI"}], " ", "=", " ", "1.02"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"cpi", "=", " ", "1.02"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Dollars", " ", "to", " ", "hour", " ", "conversion"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Equal", " ", "to", " ", "price", " ", "of", " ", "time", " ", 
     RowBox[{"(", 
      RowBox[{"wage", " ", "rate"}], ")"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Now", " ", "composite", " ", "good"}], ",", " ", 
     RowBox[{"price", " ", "is", " ", "one"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"price", " ", "in", " ", "2014", " ", "dollars"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"c", "=", "1"}], "  ", ";"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pt", "  ", "Price", " ", "of", " ", "time"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"p", "   ", "Price", " ", "of", " ", "electric", " ", "car"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pc", "  ", "Price", " ", "of", " ", "gas", " ", "gar"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pg", "  ", "Price", " ", "of", " ", "gas"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"pe", "  ", "Price", " ", "of", " ", "electricity"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"T", "   ", "Endowment", " ", "of", " ", "time"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "\[Mu]", "   ", "Variance", " ", "of", " ", "random", " ", "variables"}], 
    "  ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"\[Gamma]g", "  ", "Gas", " ", "preference", " ", "parameter"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "\[Gamma]e", "  ", "Electric", " ", "Preference", " ", "parameter"}], " ",
     "*)"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pt", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"p", "=", 
     RowBox[{"35170", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pc", "=", 
     RowBox[{"16810", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pe", "=", 
     RowBox[{"0.0389052", " ", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pg", "=", 
     RowBox[{"0.1125", "*", 
      RowBox[{"cpi", "/", "c"}]}]}], ";"}], "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{"T", "=", " ", 
     RowBox[{
     "10", " ", "*", " ", "52", " ", "*", " ", "827", " ", "*", "cpi"}]}], 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Elasticity", " ", "of", " ", "demand", " ", "for", " ", "miles"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Elasticity", " ", "=", " ", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "\[Gamma]"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]g", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]e", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"lifetime", " ", "miles"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lm", "=", "150000"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"pick", " ", "kg"}], ",", " ", 
     RowBox[{
     "ke", " ", "such", " ", "that", " ", "consumer", " ", "selects", " ", 
      "150000", " ", "miles"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"in", " ", "BAU"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kg", "=", " ", 
     RowBox[{"pg", " ", 
      RowBox[{"lm", "^", "\[Gamma]g"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ke", "=", 
     RowBox[{"pe", " ", 
      RowBox[{"lm", "^", "\[Gamma]e"}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"from", " ", "calibration"}], " ", "*)"}], "\[IndentingNewLine]", 
   
   RowBox[{"(*", " ", 
    RowBox[{"themus", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "10664.01930483359", ",", "10037.27977117757", ",", 
         "9248.63798368109"}], "}"}], " ", "\[IndentingNewLine]", "theas"}], 
      "=", 
      RowBox[{"{", " ", 
       RowBox[{
       "1688947864.74441", ",", "1688967313.033397", " ", ",", " ", 
        "1688976545.856515"}], "}"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", " ", 
   RowBox[{"SetDirectory", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Input", " ", "values", " ", "for", " ", "mu", " ", "and", " ", "A", " ", 
     "from", " ", "calibration"}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"muanda", "=", 
     RowBox[{"Import", "[", 
      RowBox[{"\"\<calibrate parms.xlsx\>\"", ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{"theas", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", "muanda", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"themus", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", "muanda", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"numus", "=", 
     RowBox[{"Length", "[", "theas", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Ouput", " ", "matrix", " ", "to", " ", "spreedsheet"}], " ", 
    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"results", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"16", ",", 
         RowBox[{"numus", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "step", " ", "through", " ", "various", " ", "values", " ", "for", " ", 
     "mu"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"index", "=", "1"}], ",", 
     RowBox[{"index", "\[LessEqual]", "numus"}], ",", 
     RowBox[{"index", "++"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Mu]", "=", 
       RowBox[{"themus", "[", 
        RowBox[{"[", "index", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"A", "=", 
       RowBox[{"theas", "[", 
        RowBox[{"[", "index", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Value for mu \>\"", ",", "\[Mu]"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Value for A \>\"", ",", "A"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< \>\"", "]"}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "B"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", ",", 
        "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", ",", 
        "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv", ",",
         "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", "optwel", 
        ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", "exact"}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"INPUT", " ", "PARAMETERS"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<B-states_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"1", "/", "30"}], "/", "15"}], "   ", "data", " ", "is", 
         " ", "now", " ", "in", " ", "cents", " ", "per", " ", "mile"}], ",", 
        " ", 
        RowBox[{"convert", " ", "to", " ", "dollars"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "5", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "gas"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "4", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "electric"}], " ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Print", "[", "thedat", "]"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Generic", " ", "Subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Sv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"s", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"from", " ", "calibrate"}], " ", "*)"}], "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"gv", "=", " ", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "kg"}], ")"}], "/", "pg"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}], ",", "m"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "ke"}], ")"}], "/", "pe"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}], ",", "m"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{"pg", " ", "gv"}]}], ")"}], " ", "/", "pt"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "-", "Sv", "+", " ", 
          
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{"pe", " ", "eev"}]}], ")"}], "/", "pt"}]}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<gv\>\"", ",", "gv"}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<eev\>\"", ",", "eev"}], "]"}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", " ", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], " ", "+", " ", "A"}]}],
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], "Sv"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"piv", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
          RowBox[{"s", "[", "k", "]"}]}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "subsidies"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"soptv", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Delta]gv", " ", "gv"}], " ", "-", " ", 
          RowBox[{"\[Delta]ev", " ", "eev"}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<soptv \>\"", ",", "soptv"}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
      "Print", "[", 
       "\"\<Variance of Subsidies (adjusted to units of $/mile) \>\"", "]"}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"WDA", "=", 
       RowBox[{"WeightedData", "[", 
        RowBox[{
         RowBox[{"soptv", "/", "150000"}], ",", "weight"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<VMT weighted Mean, Variance of subsidies across states \>\"", ",", 
        RowBox[{"Mean", "[", "WDA", "]"}], ",", " ", "\"\< \>\"", ",", 
        RowBox[{"Variance", "[", "WDA", "]"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singlev", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]gv", ".", " ", "weight"}], ")"}], "gv"}], " ", 
          "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]ev", " ", ".", "weight"}], ")"}], " ", "eev"}]}],
          ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<singlev \>\"", ",", "singlev"}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "subsidies"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"soptv", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"singlev", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus B \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single subsidy \>\"", ",", "pisingle"}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from state  \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform  \>\"", ",", " ", 
        RowBox[{"singwel", "*", "c"}]}], "]"}], ";", "\n", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Exact  \>\"", ",", " ", 
        RowBox[{"exact", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Subsidy \>\"", ",", " ", 
        RowBox[{
         RowBox[{"singlev", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "*", "c"}]}], "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Subsidy first state \>\"", ",", 
        RowBox[{
         RowBox[{"soptv", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "*", "c"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", "pisingle"}], ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"singlev", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "*", "c"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"4", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"10", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"singwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"12", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", " ", 
       RowBox[{"singwel", "*", "c"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"13", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", " ", 
       RowBox[{"optwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "C"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", ",", 
        "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", ",", 
        "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv", ",",
         "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", "optwel", 
        ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", "exact"}], 
       "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<C-county_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "7", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "7", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "gas"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "6", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "electric"}], " ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Print", "[", "thedat", "]"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Generic", " ", "Subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Sv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"s", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Problem", " ", "given", " ", "here", " ", "for", " ", "reference"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "solution", " ", "directly"}], "            ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Ug", "=", 
        RowBox[{
         RowBox[{"x", " ", "+", " ", 
          RowBox[{
           RowBox[{"g", "^", 
            RowBox[{"(", "\[Gamma]g", ")"}]}], " ", "\[IndentingNewLine]", 
           " ", "Ue"}]}], " ", "=", 
         RowBox[{
          RowBox[{"x", "+", " ", 
           RowBox[{
            RowBox[{"ee", "^", 
             RowBox[{"(", "\[Gamma]e", ")"}]}], "\[IndentingNewLine]", 
            "\[IndentingNewLine]", " ", "Lg"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{"Ug", " ", "-", " ", 
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"pt", " ", "x"}], " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"pg", "+", "tg"}], ")"}], "g"}], "  ", "-", " ", 
               RowBox[{"pt", " ", "T"}], "+", " ", "pc", "-", " ", "R"}], 
              ")"}], "\[IndentingNewLine]", "ansg"}]}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "g"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pg", " ", "+", "tg"}], ")"}], " ", "g"}], " ", 
                   "-", " ", 
                   RowBox[{"pt", " ", "T"}], "+", "pc", " ", "-", "R"}], 
                  "\[Equal]", "0"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "g", ",", "\[Lambda]"}], "}"}]}], "]"}], 
             " ", "\[IndentingNewLine]", "Vg"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Simplify", "[", 
                RowBox[{"Ug", "/.", "ansg"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", " ", "Le"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"Ue", " ", "-", " ", 
               RowBox[{"\[Lambda]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"pe", "+", "te"}], ")"}], "ee"}], " ", "-", " ", 
                  RowBox[{"pt", " ", "T"}], "+", " ", "p", "+", " ", "s", " ",
                   "-", "R"}], ")"}], "\[IndentingNewLine]", "anse"}]}], "=", 
              
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "ee"}], "]"}], "\[Equal]", "0"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pe", " ", "+", "te"}], ")"}], " ", "ee"}], " ", 
                    "-", " ", 
                    RowBox[{"pt", " ", "T"}], "+", "p", " ", "+", "s", " ", 
                    "-", "R"}], "\[Equal]", "0"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "ee", ",", "\[Lambda]"}], "}"}]}], "]"}],
                 " ", "\[IndentingNewLine]", "Ve"}], "=", 
               RowBox[{
                RowBox[{"Simplify", "[", 
                 RowBox[{"Ue", "/.", "anse"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]}]}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"gv", "=", " ", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "kg"}], ")"}], "/", "pg"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}], ",", "m"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "ke"}], ")"}], "/", "pe"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}], ",", "m"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{"pg", " ", "gv"}]}], ")"}], " ", "/", "pt"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "-", "Sv", "+", " ", 
          
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{"pe", " ", "eev"}]}], ")"}], "/", "pt"}]}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", " ", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], "+", "A"}]}], " ", ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], "Sv"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"piv", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
          RowBox[{"s", "[", "k", "]"}]}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "subsidies"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"soptv", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Delta]gv", " ", "gv"}], " ", "-", " ", 
          RowBox[{"\[Delta]ev", " ", "eev"}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singlev", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]gv", ".", " ", "weight"}], ")"}], "gv"}], " ", 
          "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]ev", " ", ".", "weight"}], ")"}], " ", "eev"}]}],
          ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "subsidies"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"soptv", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"singlev", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus C \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single subsidy \>\"", ",", "pisingle"}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from county full \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform full  \>\"", ",", " ", 
        RowBox[{"singwel", "*", "c"}]}], "]"}], ";", "\n", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Exact  \>\"", ",", " ", 
        RowBox[{"exact", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Subsidy \>\"", ",", " ", 
        RowBox[{
         RowBox[{"singlev", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "*", "c"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"5", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"11", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"singwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"14", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", " ", 
       RowBox[{"optwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "D"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "fulldatin", ",", "thefull", ",", "\[Delta]gvn", ",", "\[Delta]evn", 
        ",", "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", 
        ",", "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", 
        ",", "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv",
         ",", "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", 
        "optwel", ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", 
        "exact"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<D-states_native.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"native", " ", 
        RowBox[{"damages", ":", " ", 
         RowBox[{"used", " ", "by", " ", "states"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "5", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gvn", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{
       "native", " ", "damages", " ", "per", " ", "mile", " ", "gas"}], " ", 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Delta]evn", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "4", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{
       "native", " ", "damages", " ", "per", " ", "mile", " ", "electric"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Full", " ", 
        RowBox[{"damages", ":", " ", 
         RowBox[{"used", " ", "by", " ", "federal"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fulldatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<B-states_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"thefull", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"fulldatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "3", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{"full", " ", "damages", " ", "per", " ", "mile", " ", "gas"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "4", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "full", " ", "damages", " ", "per", " ", "mile", " ", "electric"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Generic", " ", "Subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Sv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"s", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Problem", " ", "given", " ", "here", " ", "for", " ", "reference"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "solution", " ", "directly"}], "            ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Ug", "=", 
        RowBox[{
         RowBox[{"x", " ", "+", " ", 
          RowBox[{
           RowBox[{"g", "^", 
            RowBox[{"(", "\[Gamma]g", ")"}]}], " ", "\[IndentingNewLine]", 
           " ", "Ue"}]}], " ", "=", 
         RowBox[{
          RowBox[{"x", "+", " ", 
           RowBox[{
            RowBox[{"ee", "^", 
             RowBox[{"(", "\[Gamma]e", ")"}]}], "\[IndentingNewLine]", 
            "\[IndentingNewLine]", " ", "Lg"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{"Ug", " ", "-", " ", 
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"pt", " ", "x"}], " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"pg", "+", "tg"}], ")"}], "g"}], "  ", "-", " ", 
               RowBox[{"pt", " ", "T"}], "+", " ", "pc", "-", " ", "R"}], 
              ")"}], "\[IndentingNewLine]", "ansg"}]}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "g"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pg", " ", "+", "tg"}], ")"}], " ", "g"}], " ", 
                   "-", " ", 
                   RowBox[{"pt", " ", "T"}], "+", "pc", " ", "-", "R"}], 
                  "\[Equal]", "0"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "g", ",", "\[Lambda]"}], "}"}]}], "]"}], 
             " ", "\[IndentingNewLine]", "Vg"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Simplify", "[", 
                RowBox[{"Ug", "/.", "ansg"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", " ", "Le"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"Ue", " ", "-", " ", 
               RowBox[{"\[Lambda]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"pe", "+", "te"}], ")"}], "ee"}], " ", "-", " ", 
                  RowBox[{"pt", " ", "T"}], "+", " ", "p", "+", " ", "s", " ",
                   "-", "R"}], ")"}], "\[IndentingNewLine]", "anse"}]}], "=", 
              
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "ee"}], "]"}], "\[Equal]", "0"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pe", " ", "+", "te"}], ")"}], " ", "ee"}], " ", 
                    "-", " ", 
                    RowBox[{"pt", " ", "T"}], "+", "p", " ", "+", "s", " ", 
                    "-", "R"}], "\[Equal]", "0"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "ee", ",", "\[Lambda]"}], "}"}]}], "]"}],
                 " ", "\[IndentingNewLine]", "Ve"}], "=", 
               RowBox[{
                RowBox[{"Simplify", "[", 
                 RowBox[{"Ue", "/.", "anse"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]}]}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"gv", "=", " ", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "kg"}], ")"}], "/", "pg"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}], ",", "m"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "ke"}], ")"}], "/", "pe"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}], ",", "m"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{"pg", " ", "gv"}]}], ")"}], " ", "/", "pt"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "-", "Sv", "+", " ", 
          
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{"pe", " ", "eev"}]}], ")"}], "/", "pt"}]}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", " ", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], "+", " ", "A"}]}], " ",
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], "Sv"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"piv", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
          RowBox[{"s", "[", "k", "]"}]}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"must", " ", "evaluate", " ", "at", " ", "full"}], " ", "*)"}],
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "subsidies"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "native", " ", "damages"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"soptv", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Delta]gvn", " ", "gv"}], " ", "-", " ", 
          RowBox[{"\[Delta]evn", " ", "eev"}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "full", " ", "damages"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singlev", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]gv", ".", " ", "weight"}], ")"}], "gv"}], " ", 
          "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]ev", " ", ".", "weight"}], ")"}], " ", "eev"}]}],
          ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "subsidies"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"soptv", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"singlev", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus D \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single subsidy \>\"", ",", "pisingle"}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from state native \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform full \>\"", ",", " ", 
        RowBox[{"singwel", "*", "c"}]}], "]"}], ";", "\n", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Exact: Welfare from State native - Welfare from uniform full  \
\>\"", ",", " ", 
        RowBox[{"exact", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Subsidy \>\"", ",", " ", 
        RowBox[{
         RowBox[{"singlev", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "*", "c"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"6", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"15", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", " ", 
       RowBox[{"optwel", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"**", 
        RowBox[{
        "*", "        ", "Compare", " ", "A", " ", "with", " ", "E"}]}], 
       "                                         ", "***)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
       "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
         "**", "**", "**", "**", "**", "**", "**", "**"}], "******)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Clear", "[", 
       RowBox[{
       "fulldatin", ",", "thefull", ",", "\[Delta]gvn", ",", "\[Delta]evn", 
        ",", "thedatin", ",", "thedat", ",", "\[Delta]gv", ",", "\[Delta]ev", 
        ",", "m", ",", " ", "Sv", ",", "Rv", ",", "s", ",", "R", ",", "gv", 
        ",", "eev", ",", "xgv", ",", "xev", ",", "Lgv", ",", "Lev", ",", "Wv",
         ",", "piv", ",", "Welfv", ",", "soptv", ",", "singlev", ",", 
        "optwel", ",", "singwel", ",", "piprodsingle", ",", "pisingle", ",", 
        "exact"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "county", " ", "data", " ", "missing", " ", "value", " ", "for", " ", 
        "clifton", " ", "forge", " ", "va"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"give", " ", "it", " ", "zero"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<E-county_native.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", " ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"get", " ", "rid", " ", "of", " ", "column", " ", "labels"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"thedat", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"thedatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"weight", " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
         RowBox[{"[", "7", "]"}], "]"}], "/", 
        RowBox[{"Total", " ", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "7", "]"}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]gvn", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "gas"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"\[Delta]evn", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thedat", "]"}], "[", 
          RowBox[{"[", "6", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", 
       RowBox[{"damages", " ", "per", " ", "mile", " ", "electric"}], " ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Print", "[", "thedat", "]"}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Full", " ", 
        RowBox[{"damages", ":", " ", 
         RowBox[{"used", " ", "by", " ", "federal"}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fulldatin", "=", 
       RowBox[{"Import", "[", 
        RowBox[{"\"\<C-county_full.xlsx\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Data\>\"", ",", "1"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"thefull", "=", 
       RowBox[{"Drop", "[", 
        RowBox[{"fulldatin", ",", "1"}], "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"\[Delta]gv", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "5", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{"full", " ", "damages", " ", "per", " ", "mile", " ", "gas"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"\[Delta]ev", " ", "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Transpose", "[", "thefull", "]"}], "[", 
          RowBox[{"[", "6", "]"}], "]"}], "/", "c"}], "/", "100"}]}], ";", 
      " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "full", " ", "damages", " ", "per", " ", "mile", " ", "electric"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Number", " ", "of", " ", "Regions"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "\[Delta]gv", "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"weight", "=", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{
           RowBox[{"1", "/", "m"}], ",", "m"}], "]"}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"VECTOR", " ", "VARIABLES"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Generic", " ", "Subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Sv", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"s", ",", "m"}], "]"}]}], ";", "    ", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Goverment", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "     ", "\[IndentingNewLine]", 
      RowBox[{"Rv", " ", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"R", ",", "m"}], "]"}]}], " ", ";", "          ", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"CONSUMER", "'"}], "S", " ", "WELFARE", " ", "MAXIMIZING", 
        " ", "PROBLEM"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Problem", " ", "given", " ", "here", " ", "for", " ", "reference"}], 
       " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Use", " ", "solution", " ", "directly"}], "            ", 
       "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Ug", "=", 
        RowBox[{
         RowBox[{"x", " ", "+", " ", 
          RowBox[{
           RowBox[{"g", "^", 
            RowBox[{"(", "\[Gamma]g", ")"}]}], " ", "\[IndentingNewLine]", 
           " ", "Ue"}]}], " ", "=", 
         RowBox[{
          RowBox[{"x", "+", " ", 
           RowBox[{
            RowBox[{"ee", "^", 
             RowBox[{"(", "\[Gamma]e", ")"}]}], "\[IndentingNewLine]", 
            "\[IndentingNewLine]", " ", "Lg"}]}], " ", "=", " ", 
          RowBox[{
           RowBox[{"Ug", " ", "-", " ", 
            RowBox[{"\[Lambda]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"pt", " ", "x"}], " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"pg", "+", "tg"}], ")"}], "g"}], "  ", "-", " ", 
               RowBox[{"pt", " ", "T"}], "+", " ", "pc", "-", " ", "R"}], 
              ")"}], "\[IndentingNewLine]", "ansg"}]}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"Solve", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{"D", "[", 
                   RowBox[{"Lg", ",", "g"}], "]"}], "\[Equal]", "0"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pg", " ", "+", "tg"}], ")"}], " ", "g"}], " ", 
                   "-", " ", 
                   RowBox[{"pt", " ", "T"}], "+", "pc", " ", "-", "R"}], 
                  "\[Equal]", "0"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "g", ",", "\[Lambda]"}], "}"}]}], "]"}], 
             " ", "\[IndentingNewLine]", "Vg"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"Simplify", "[", 
                RowBox[{"Ug", "/.", "ansg"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", 
              "\[IndentingNewLine]", " ", "Le"}], " ", "=", " ", 
             RowBox[{
              RowBox[{"Ue", " ", "-", " ", 
               RowBox[{"\[Lambda]", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"pe", "+", "te"}], ")"}], "ee"}], " ", "-", " ", 
                  RowBox[{"pt", " ", "T"}], "+", " ", "p", "+", " ", "s", " ",
                   "-", "R"}], ")"}], "\[IndentingNewLine]", "anse"}]}], "=", 
              
              RowBox[{
               RowBox[{
                RowBox[{"Solve", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "x"}], "]"}], "\[Equal]", "0"}], ",", 
                    RowBox[{
                    RowBox[{"D", "[", 
                    RowBox[{"Le", ",", "ee"}], "]"}], "\[Equal]", "0"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    RowBox[{"pt", " ", "x"}], " ", "+", " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"pe", " ", "+", "te"}], ")"}], " ", "ee"}], " ", 
                    "-", " ", 
                    RowBox[{"pt", " ", "T"}], "+", "p", " ", "+", "s", " ", 
                    "-", "R"}], "\[Equal]", "0"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "ee", ",", "\[Lambda]"}], "}"}]}], "]"}],
                 " ", "\[IndentingNewLine]", "Ve"}], "=", 
               RowBox[{
                RowBox[{"Simplify", "[", 
                 RowBox[{"Ue", "/.", "anse"}], "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}]}]}]}]}]}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"x", ",", " ", 
        RowBox[{
        "g", " ", "and", " ", "e", " ", "as", " ", "a", " ", "function", " ", 
         "of", " ", "the", " ", "parameters"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"gv", "=", " ", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "kg"}], ")"}], "/", "pg"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]g"}], ")"}]}], ",", "m"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"eev", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"pt", " ", "ke"}], ")"}], "/", "pe"}], " ", ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "\[Gamma]e"}], ")"}]}], ",", "m"}], "]"}]}], ";", 
      RowBox[{"xgv", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "pc"}], " ", "+", " ", "Rv", " ", "+", " ", 
          RowBox[{"pt", " ", "T"}], " ", "-", 
          RowBox[{"pg", " ", "gv"}]}], ")"}], " ", "/", "pt"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xev", "=", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "p"}], "  ", "+", " ", "Rv", " ", "-", "Sv", "+", " ", 
          
          RowBox[{"pt", " ", "T"}], " ", "-", " ", 
          RowBox[{"pe", " ", "eev"}]}], ")"}], "/", "pt"}]}], " ", ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Indirect", " ", "utility"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Lgv", "=", " ", 
       RowBox[{"xgv", " ", "+", 
        RowBox[{"kg", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gv", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]g"}], ")"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Lev", "=", " ", 
       RowBox[{"xev", " ", "+", " ", 
        RowBox[{"ke", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"eev", "^", 
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}], "-", "1"}], ")"}], 
          "/", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Gamma]e"}], ")"}]}]}], "+", " ", "A"}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Expected", " ", "welfare", " ", "without", " ", "externalties"}], " ",
        "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Wv", "=", 
       RowBox[{"\[Mu]", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"Exp", "[", 
           RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Probability", " ", "of", " ", "selecting", " ", "electric", " ", 
        "car"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Use", " ", "simplify", " ", "to", " ", "eliminate", " ", "R", " ", 
        "term", " ", "in", " ", "pi"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"It", " ", "cancels", " ", 
        RowBox[{"out", " ", "!"}]}], "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"piv", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{
         RowBox[{"Exp", "[", 
          RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"Lgv", "/", "\[Mu]"}], "]"}], "+", 
           RowBox[{"Exp", "[", 
            RowBox[{"Lev", "/", "\[Mu]"}], "]"}]}], ")"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Government", " ", "Revenue"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Rv", "=", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], "Sv"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", 
        RowBox[{
         RowBox[{"R", "[", "k", "]"}], "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"piv", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ")"}], 
          RowBox[{"s", "[", "k", "]"}]}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", "with", " ", "externaltieis"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"Welfv", " ", "=", " ", 
       RowBox[{"Wv", " ", "-", " ", 
        RowBox[{"\[Delta]gv", " ", "piv", " ", "gv"}], " ", "-", " ", 
        RowBox[{"\[Delta]ev", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", "piv"}], ")"}], " ", "eev"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "region", " ", "specific", " ", "subsidies"}], 
       " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"soptv", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Delta]gvn", " ", "gv"}], " ", "-", " ", 
          RowBox[{"\[Delta]evn", " ", "eev"}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Optimal", " ", "single", " ", "subsidy"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singlev", "=", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]gv", ".", " ", "weight"}], ")"}], "gv"}], " ", 
          "-", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Delta]ev", " ", ".", "weight"}], ")"}], " ", "eev"}]}],
          ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Welfare", " ", "at", " ", "optimal", " ", "region", " ", "specific", 
        " ", "subsidies"}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"soptv", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"optwel", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Welfare", " ", ",", "  ", 
        RowBox[{"PI", 
         RowBox[{"(", 
          RowBox[{"1", "-", "PI"}], ")"}]}], ",", " ", 
        RowBox[{
        "and", " ", "PI", "  ", "at", " ", "optimal", " ", "single", " ", 
         "subsidy"}]}], " ", "*)"}], "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"For", " ", "[", 
       RowBox[{
        RowBox[{"k", "=", "1"}], ",", 
        RowBox[{"k", "\[LessEqual]", " ", "m"}], ",", " ", 
        RowBox[{"k", "++"}], ",", " ", 
        RowBox[{
         RowBox[{"s", "[", "k", "]"}], "=", 
         RowBox[{"singlev", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"singwel", " ", "=", 
       RowBox[{"Welfv", " ", ".", " ", "weight"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"piprodsingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", 
         RowBox[{"piv", 
          RowBox[{"(", 
           RowBox[{"1", "-", "piv"}], ")"}]}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"pisingle", "=", 
       RowBox[{"First", "[", 
        RowBox[{"Simplify", "[", "piv", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Exact", " ", "Welfare", " ", "Difference"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"exact", "=", " ", 
       RowBox[{"(", 
        RowBox[{"optwel", "-", "singwel"}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Display", " ", "Results"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", "\"\< A Versus E \>\"", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Probability at optimal single subsidy \>\"", ",", "pisingle"}], 
       "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{
       "\"\<Exact: Welfare county native - welfare uniform full  \>\"", ",", 
        " ", 
        RowBox[{"exact", "*", "c"}]}], " ", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from county native \>\"", ",", 
        RowBox[{"optwel", "*", "c"}]}], "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Welfare from uniform full  \>\"", ",", " ", 
        RowBox[{"singwel", "*", "c"}]}], "]"}], ";", "\n", 
      RowBox[{"Print", "[", 
       RowBox[{"\"\<Optimal Single Subsidy \>\"", ",", " ", 
        RowBox[{
         RowBox[{"singlev", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "*", "c"}]}], "]"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"7", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"exact", "*", "c"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"8", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"4", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "-", 
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"6", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"9", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"5", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "-", 
        RowBox[{"results", "[", 
         RowBox[{"[", 
          RowBox[{"7", ",", 
           RowBox[{"index", "+", "1"}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"results", "[", 
        RowBox[{"[", 
         RowBox[{"16", ",", 
          RowBox[{"index", "+", "1"}]}], "]"}], "]"}], "=", " ", 
       RowBox[{"optwel", "*", "c"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], 
   
   RowBox[{"(*", " ", 
    RowBox[{"end", " ", "mu", " ", "loop"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "\"\< \>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"themus", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", 
     RowBox[{"themus", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "4"}], "]"}], "]"}], "=", 
     RowBox[{"themus", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Prob of Adoption Gas Car\>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Optimal Uniform Tax on Electric Car Purchase\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare B-A: state specific vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare C-A: county specific vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Welfare D-A: state specific (native) vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare E-A: county specific (native) vs uniform\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Welfare B-D: state specific vs state specific (native)\>\""}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"9", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare C-E: county specific vs county specific (native)\>\""}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"10", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare A: uniform tax across all states\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"11", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare A': uniform tax across all counties\>\""}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"12", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare A: Federal \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"13", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare B: State \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"14", ",", "1"}], "]"}], "]"}], "=", " ", 
     "\"\<Welfare C: County \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"15", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare D: State Native \>\""}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"results", "[", 
      RowBox[{"[", 
       RowBox[{"16", ",", "1"}], "]"}], "]"}], "=", 
     "\"\<Welfare E: County Native \>\""}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Print", "[", "results", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{
    "\"\<welfare_big2011.xlsx\>\"", ",", "results", ",", "\"\<XLSX\>\""}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.610980900518314*^9, 3.6109809018852577`*^9}, {
   3.6109809764110537`*^9, 3.610981015425366*^9}, {3.610981135980332*^9, 
   3.610981141738846*^9}, {3.610981187338464*^9, 3.6109816571664057`*^9}, {
   3.6109816891734447`*^9, 3.6109821770651703`*^9}, {3.610982228852769*^9, 
   3.610982386941235*^9}, {3.610982418939946*^9, 3.6109824420429583`*^9}, {
   3.61098253261613*^9, 3.610982638306422*^9}, {3.61098267343849*^9, 
   3.6109827280907507`*^9}, {3.6109828003882713`*^9, 3.610983046705741*^9}, {
   3.61098307771229*^9, 3.610983172015789*^9}, {3.6109832043149548`*^9, 
   3.6109832573445873`*^9}, {3.6109833311010313`*^9, 3.610983452771846*^9}, {
   3.610983484407063*^9, 3.610983686550385*^9}, {3.6109837644422817`*^9, 
   3.610983798376422*^9}, {3.610983864218069*^9, 3.6109839455161858`*^9}, {
   3.61098398430768*^9, 3.61098398721798*^9}, {3.61098404049782*^9, 
   3.610984067394224*^9}, {3.610984106057178*^9, 3.610984109209504*^9}, {
   3.6109841592949953`*^9, 3.610984326385331*^9}, {3.6109843647845917`*^9, 
   3.610984523793378*^9}, {3.6109845557262163`*^9, 3.61098458655881*^9}, {
   3.610984632613119*^9, 3.610984761998685*^9}, {3.61098488388039*^9, 
   3.610984900586199*^9}, {3.6109857224214363`*^9, 3.610985730213636*^9}, {
   3.61098577458806*^9, 3.6109857970305758`*^9}, {3.610985841261018*^9, 
   3.6109858758629847`*^9}, 3.610985921683413*^9, {3.610985990802561*^9, 
   3.610986063636125*^9}, {3.610986105986088*^9, 3.610986124732169*^9}, {
   3.610986244677313*^9, 3.610986289114002*^9}, 3.611054311017941*^9, {
   3.6110543429988003`*^9, 3.611054363011042*^9}, 3.61105442568427*^9, {
   3.611054460506353*^9, 3.611054575108971*^9}, {3.611054757013483*^9, 
   3.61105479995434*^9}, {3.6110548647301207`*^9, 3.6110549421327*^9}, {
   3.61105499986604*^9, 3.6110550274231157`*^9}, {3.611055074686529*^9, 
   3.611055133091919*^9}, {3.61105516861237*^9, 3.611055381945657*^9}, 
   3.6110554122247057`*^9, {3.61105548115583*^9, 3.6110555979914217`*^9}, {
   3.6110556586225224`*^9, 3.611055838174179*^9}, {3.6110558722626667`*^9, 
   3.6110559491284657`*^9}, {3.611056017679894*^9, 3.611056063558569*^9}, {
   3.6110561181820793`*^9, 3.6110564246072817`*^9}, {3.611056516724223*^9, 
   3.611056520166006*^9}, {3.611056560689189*^9, 3.611056640373776*^9}, {
   3.611056691019245*^9, 3.611056751936221*^9}, {3.611056800251309*^9, 
   3.611056806947529*^9}, {3.611057049436596*^9, 3.611057145659349*^9}, {
   3.611057198702064*^9, 3.611057209164892*^9}, {3.6110572398248863`*^9, 
   3.611057309311469*^9}, {3.611057380670196*^9, 3.611057397509762*^9}, {
   3.611057872710017*^9, 3.611057895734671*^9}, {3.611057981162518*^9, 
   3.611058020895988*^9}, {3.61105808544413*^9, 3.611058098396516*^9}, {
   3.611058137244137*^9, 3.6110581489439497`*^9}, {3.611058179865505*^9, 
   3.611058188368331*^9}, {3.611058368855933*^9, 3.611058459666366*^9}, {
   3.6110585062678223`*^9, 3.611058515088179*^9}, {3.611058683046193*^9, 
   3.6110587239552393`*^9}, {3.611058778366829*^9, 3.611058798748345*^9}, {
   3.6110592792409573`*^9, 3.6110593709868507`*^9}, {3.611059474161882*^9, 
   3.611059474873088*^9}, {3.611059613052334*^9, 3.6110596156827507`*^9}, {
   3.611059795555162*^9, 3.611059832000711*^9}, {3.611059875969754*^9, 
   3.611059890765058*^9}, {3.6110600140743*^9, 3.611060016615623*^9}, 
   3.611060078119891*^9, {3.611060305747816*^9, 3.611060366047469*^9}, {
   3.611060525505487*^9, 3.611060539505165*^9}, {3.611061133353788*^9, 
   3.611061135678336*^9}, {3.611061388217597*^9, 3.611061553468246*^9}, {
   3.611061802619281*^9, 3.611061806384762*^9}, {3.6110618847990303`*^9, 
   3.611061885348996*^9}, {3.6110619288889*^9, 3.611061934203059*^9}, {
   3.611061984396843*^9, 3.611061985300633*^9}, {3.611067971614702*^9, 
   3.611067974632325*^9}, {3.611319512720009*^9, 3.611319546410624*^9}, {
   3.61131961002393*^9, 3.611319705314157*^9}, {3.6113197711753407`*^9, 
   3.611319786223588*^9}, {3.611319822644743*^9, 3.611319827795464*^9}, {
   3.6113198671390133`*^9, 3.611320050138114*^9}, {3.61132008412216*^9, 
   3.611320159873168*^9}, {3.611320213916152*^9, 3.611320278392947*^9}, {
   3.6113203217671213`*^9, 3.611320328702923*^9}, {3.611320367927764*^9, 
   3.6113203983865147`*^9}, {3.611320532825408*^9, 3.611320557999262*^9}, {
   3.6113206256909943`*^9, 3.611320663143249*^9}, 3.611321072431799*^9, {
   3.611321144306485*^9, 3.611321148298451*^9}, {3.6113211858579082`*^9, 
   3.6113212319500723`*^9}, {3.61132130659006*^9, 3.611321356515328*^9}, 
   3.611321386529532*^9, {3.611321430047812*^9, 3.61132146658957*^9}, {
   3.6113215197553263`*^9, 3.611321543792676*^9}, {3.611321623841846*^9, 
   3.6113216259248867`*^9}, {3.611321697436728*^9, 3.6113217005894737`*^9}, {
   3.611321825408422*^9, 3.611321827847822*^9}, {3.61132237894659*^9, 
   3.611322412998003*^9}, {3.611322496516427*^9, 3.611322502497974*^9}, 
   3.611322562631959*^9, {3.611322687571451*^9, 3.611322700328417*^9}, {
   3.611323034436426*^9, 3.611323082857182*^9}, 3.61132312982672*^9, {
   3.611323224852324*^9, 3.611323225458325*^9}, {3.61132763980155*^9, 
   3.611327649219719*^9}, {3.611659985084736*^9, 3.611659991594058*^9}, {
   3.6116600326472*^9, 3.611660033192404*^9}, 3.611660090813795*^9, {
   3.612526309944765*^9, 3.6125263342808943`*^9}, {3.612526446222348*^9, 
   3.6125264500842*^9}, {3.612526569586886*^9, 3.612526601985379*^9}, {
   3.612526823883008*^9, 3.612526860805152*^9}, {3.6125268997768717`*^9, 
   3.612526900503441*^9}, {3.612526937962799*^9, 3.6125269715728073`*^9}, {
   3.612527214788402*^9, 3.612527247528837*^9}, {3.61252954819729*^9, 
   3.612529559923532*^9}, {3.612613446810451*^9, 3.612613489640402*^9}, {
   3.612613833014206*^9, 3.612614023464635*^9}, {3.61261411150105*^9, 
   3.612614214861607*^9}, {3.6126142675509872`*^9, 3.612614374780232*^9}, {
   3.61261442811273*^9, 3.612614467958548*^9}, {3.6126145427492*^9, 
   3.612614610791911*^9}, {3.6126146512962637`*^9, 3.612614747496957*^9}, {
   3.612614785541457*^9, 3.6126148417295437`*^9}, {3.6126149283507833`*^9, 
   3.6126149469293127`*^9}, {3.6126149824348173`*^9, 3.612615241311158*^9}, {
   3.612615287638681*^9, 3.612615296244676*^9}, {3.612615617127616*^9, 
   3.6126156721078663`*^9}, {3.6126157154743767`*^9, 3.612616027444479*^9}, {
   3.612616063789765*^9, 3.6126160683945293`*^9}, {3.612616100792452*^9, 
   3.612616104752514*^9}, {3.6126161392736893`*^9, 3.6126161846448097`*^9}, {
   3.61261622183322*^9, 3.612616299200717*^9}, {3.612616417624689*^9, 
   3.61261666504961*^9}, {3.612616739314258*^9, 3.6126168255792437`*^9}, {
   3.61261687592382*^9, 3.612616947621271*^9}, {3.612617099561679*^9, 
   3.6126171020817337`*^9}, {3.6126173923303337`*^9, 3.612617456869245*^9}, {
   3.6126174941519613`*^9, 3.612617520234988*^9}, {3.612617981513691*^9, 
   3.612618216156472*^9}, {3.6126182791129417`*^9, 3.6126182925062*^9}, {
   3.612792547404724*^9, 3.6127926974770317`*^9}, {3.612882857828038*^9, 
   3.612882963999445*^9}, {3.612883017200923*^9, 3.612883026356823*^9}, {
   3.612883074967152*^9, 3.612883156799362*^9}, {3.620658704202323*^9, 
   3.62065870543536*^9}, {3.62065895264364*^9, 3.620658953384325*^9}, {
   3.620992203594679*^9, 3.620992267983729*^9}, {3.620992304509592*^9, 
   3.620992333622279*^9}, {3.63137486564062*^9, 3.631374869397743*^9}, {
   3.6316305716932583`*^9, 3.631630658376646*^9}, 3.6316312090261917`*^9, {
   3.6321434463990602`*^9, 3.632143473320651*^9}, {3.632143609853099*^9, 
   3.632143610210477*^9}, {3.632591274566037*^9, 3.632591275265984*^9}, {
   3.632591325972328*^9, 3.632591438044022*^9}, {3.6325915031553173`*^9, 
   3.632591646163575*^9}, {3.6328485711695023`*^9, 3.632848609019857*^9}, {
   3.633086417155622*^9, 3.6330864251352377`*^9}, {3.633430882760219*^9, 
   3.633430895147917*^9}, {3.6334309427451067`*^9, 3.633430982559763*^9}, {
   3.633431021524604*^9, 3.6334311119881897`*^9}, 3.6334311904420557`*^9, {
   3.633431256365995*^9, 3.633431342208683*^9}, {3.633431382338043*^9, 
   3.6334313829829283`*^9}, {3.633431496338056*^9, 3.633431512232006*^9}, {
   3.633431836085837*^9, 3.633431892880661*^9}, {3.633432183276536*^9, 
   3.633432235146739*^9}, {3.6334323354695683`*^9, 3.6334324092334423`*^9}, {
   3.633432463188385*^9, 3.633432537608532*^9}, {3.63343265372355*^9, 
   3.6334327133171988`*^9}, {3.6334327607115107`*^9, 
   3.6334327836393013`*^9}, {3.633432865451942*^9, 3.633432890711097*^9}, {
   3.633432945861576*^9, 3.6334329743585777`*^9}, {3.633433825160845*^9, 
   3.6334338586459312`*^9}, {3.63343432097799*^9, 3.633434338456312*^9}, {
   3.6334343837106256`*^9, 3.633434402743589*^9}, 3.6334345014165287`*^9, {
   3.633434570483615*^9, 3.63343457236098*^9}, {3.633434654087633*^9, 
   3.633434672404443*^9}, 3.633434729852235*^9, {3.6334348864849443`*^9, 
   3.633434896383396*^9}, {3.633434929211418*^9, 3.633434935442479*^9}, {
   3.63343498416448*^9, 3.633435025279477*^9}, {3.633435427181175*^9, 
   3.633435432282218*^9}, {3.633435464816967*^9, 3.6334354706916018`*^9}, {
   3.633435584963245*^9, 3.633435595284545*^9}, {3.633435978410452*^9, 
   3.633435998951428*^9}, {3.63343617090483*^9, 3.633436185344412*^9}, {
   3.633436443716447*^9, 3.6334364699361486`*^9}, {3.6334366193077307`*^9, 
   3.6334366351768293`*^9}, {3.633436672480734*^9, 3.633436693918363*^9}, {
   3.633437603990006*^9, 3.633437623785563*^9}, {3.633445628852084*^9, 
   3.6334456436398163`*^9}, {3.633445751283164*^9, 3.6334457854700537`*^9}, {
   3.6334461666280527`*^9, 3.633446206223464*^9}, {3.633446499037719*^9, 
   3.633446502370454*^9}, {3.633448835755726*^9, 3.633448847748219*^9}, {
   3.633452724751277*^9, 3.633452914800013*^9}, {3.633453778365878*^9, 
   3.633453828480047*^9}, {3.6336052446531982`*^9, 3.63360526468682*^9}, {
   3.633608582933939*^9, 3.633608607174026*^9}, {3.633608664715849*^9, 
   3.633608665677476*^9}, {3.6338754933243933`*^9, 3.633875510164613*^9}, {
   3.633875694259981*^9, 3.63387570802702*^9}, {3.633875765091662*^9, 
   3.633875959322205*^9}, {3.6338760196067877`*^9, 3.633876023111547*^9}, {
   3.633876113091426*^9, 3.633876125448757*^9}, {3.63387618115169*^9, 
   3.633876182983872*^9}, {3.634398205854622*^9, 3.634398296277042*^9}, {
   3.6343983276614323`*^9, 3.634398408046238*^9}, {3.634398447792777*^9, 
   3.634398496867299*^9}, {3.6343985337566023`*^9, 3.634398587743019*^9}, {
   3.634398621514675*^9, 3.634398648300314*^9}, {3.65946129631638*^9, 
   3.6594614752532053`*^9}, {3.6594615225087748`*^9, 3.659461536755167*^9}, {
   3.659461574683473*^9, 3.659461576801669*^9}, {3.659713152795409*^9, 
   3.659713171001988*^9}, {3.673866246414628*^9, 3.673866262645234*^9}, {
   3.673866966571504*^9, 3.6738669909846153`*^9}, {3.673868833484233*^9, 
   3.673868901496215*^9}, {3.6745573311951637`*^9, 3.674557331609267*^9}}],

Cell[BoxData["1.02`"], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612794979858635*^9, 
   3.612883210191588*^9, 3.621767881288454*^9, 3.627309268140294*^9, 
   3.631631163437271*^9, 3.631631213881341*^9, 3.6324795032874947`*^9, 
   3.6325842234372396`*^9, 3.6325916952560463`*^9, 3.6328486453151903`*^9, 
   3.633086588793688*^9, 3.633433019015448*^9, 3.633433864565504*^9, 
   3.633434405152561*^9, 3.633434514568087*^9, 3.633434575489251*^9, 
   3.6334346751929417`*^9, 3.6334348999059*^9, 3.6334349377636337`*^9, 
   3.633435028293915*^9, 3.6334354350608673`*^9, 3.633435479977824*^9, 
   3.6334355984406757`*^9, 3.633436008655505*^9, 3.6334362531887617`*^9, 
   3.633436472365889*^9, 3.633436638443652*^9, 3.6334367031006203`*^9, 
   3.633445647807611*^9, 3.633445788801482*^9, 3.633446209561372*^9, 
   3.63344885082489*^9, 3.6334529249819*^9, 3.633453830697187*^9, 
   3.633605315902807*^9, 3.633606904495802*^9, 3.633607049301675*^9, 
   3.633607565556923*^9, 3.6336086167499027`*^9, 3.633608669218884*^9, 
   3.633875995655719*^9, 3.633876030490554*^9, 3.633876138542201*^9, 
   3.633876187034314*^9, 3.634398689817636*^9, 3.6594614809053802`*^9, 
   3.65946154092597*^9, 3.659461581686516*^9, 3.661008925320341*^9, 
   3.661084756758461*^9, 3.673866269051647*^9, 3.6738669988318157`*^9, 
   3.673868916458165*^9}],

Cell[BoxData["\<\"/Users/andrewjyates/Dropbox/electric cars/welfare\"\>"], \
"Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612794979858635*^9, 
   3.612883210191588*^9, 3.621767881288454*^9, 3.627309268140294*^9, 
   3.631631163437271*^9, 3.631631213881341*^9, 3.6324795032874947`*^9, 
   3.6325842234372396`*^9, 3.6325916952560463`*^9, 3.6328486453151903`*^9, 
   3.633086588793688*^9, 3.633433019015448*^9, 3.633433864565504*^9, 
   3.633434405152561*^9, 3.633434514568087*^9, 3.633434575489251*^9, 
   3.6334346751929417`*^9, 3.6334348999059*^9, 3.6334349377636337`*^9, 
   3.633435028293915*^9, 3.6334354350608673`*^9, 3.633435479977824*^9, 
   3.6334355984406757`*^9, 3.633436008655505*^9, 3.6334362531887617`*^9, 
   3.633436472365889*^9, 3.633436638443652*^9, 3.6334367031006203`*^9, 
   3.633445647807611*^9, 3.633445788801482*^9, 3.633446209561372*^9, 
   3.63344885082489*^9, 3.6334529249819*^9, 3.633453830697187*^9, 
   3.633605315902807*^9, 3.633606904495802*^9, 3.633607049301675*^9, 
   3.633607565556923*^9, 3.6336086167499027`*^9, 3.633608669218884*^9, 
   3.633875995655719*^9, 3.633876030490554*^9, 3.633876138542201*^9, 
   3.633876187034314*^9, 3.634398689817636*^9, 3.6594614809053802`*^9, 
   3.65946154092597*^9, 3.659461581686516*^9, 3.661008925320341*^9, 
   3.661084756758461*^9, 3.673866269051647*^9, 3.6738669988318157`*^9, 
   3.673868916464147*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.6889478647444098`*^9", ",", "1.6889559733504915`*^9", ",", 
   "1.688967313033398`*^9"}], "}"}]], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612794979858635*^9, 
   3.612883210191588*^9, 3.621767881288454*^9, 3.627309268140294*^9, 
   3.631631163437271*^9, 3.631631213881341*^9, 3.6324795032874947`*^9, 
   3.6325842234372396`*^9, 3.6325916952560463`*^9, 3.6328486453151903`*^9, 
   3.633086588793688*^9, 3.633433019015448*^9, 3.633433864565504*^9, 
   3.633434405152561*^9, 3.633434514568087*^9, 3.633434575489251*^9, 
   3.6334346751929417`*^9, 3.6334348999059*^9, 3.6334349377636337`*^9, 
   3.633435028293915*^9, 3.6334354350608673`*^9, 3.633435479977824*^9, 
   3.6334355984406757`*^9, 3.633436008655505*^9, 3.6334362531887617`*^9, 
   3.633436472365889*^9, 3.633436638443652*^9, 3.6334367031006203`*^9, 
   3.633445647807611*^9, 3.633445788801482*^9, 3.633446209561372*^9, 
   3.63344885082489*^9, 3.6334529249819*^9, 3.633453830697187*^9, 
   3.633605315902807*^9, 3.633606904495802*^9, 3.633607049301675*^9, 
   3.633607565556923*^9, 3.6336086167499027`*^9, 3.633608669218884*^9, 
   3.633875995655719*^9, 3.633876030490554*^9, 3.633876138542201*^9, 
   3.633876187034314*^9, 3.634398689817636*^9, 3.6594614809053802`*^9, 
   3.65946154092597*^9, 3.659461581686516*^9, 3.661008925320341*^9, 
   3.661084756758461*^9, 3.673866269051647*^9, 3.6738669988318157`*^9, 
   3.673868916497767*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "10664.019305026453`", ",", "10507.638476642005`", ",", 
   "10037.279770879111`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612794979858635*^9, 
   3.612883210191588*^9, 3.621767881288454*^9, 3.627309268140294*^9, 
   3.631631163437271*^9, 3.631631213881341*^9, 3.6324795032874947`*^9, 
   3.6325842234372396`*^9, 3.6325916952560463`*^9, 3.6328486453151903`*^9, 
   3.633086588793688*^9, 3.633433019015448*^9, 3.633433864565504*^9, 
   3.633434405152561*^9, 3.633434514568087*^9, 3.633434575489251*^9, 
   3.6334346751929417`*^9, 3.6334348999059*^9, 3.6334349377636337`*^9, 
   3.633435028293915*^9, 3.6334354350608673`*^9, 3.633435479977824*^9, 
   3.6334355984406757`*^9, 3.633436008655505*^9, 3.6334362531887617`*^9, 
   3.633436472365889*^9, 3.633436638443652*^9, 3.6334367031006203`*^9, 
   3.633445647807611*^9, 3.633445788801482*^9, 3.633446209561372*^9, 
   3.63344885082489*^9, 3.6334529249819*^9, 3.633453830697187*^9, 
   3.633605315902807*^9, 3.633606904495802*^9, 3.633607049301675*^9, 
   3.633607565556923*^9, 3.6336086167499027`*^9, 3.633608669218884*^9, 
   3.633875995655719*^9, 3.633876030490554*^9, 3.633876138542201*^9, 
   3.633876187034314*^9, 3.634398689817636*^9, 3.6594614809053802`*^9, 
   3.65946154092597*^9, 3.659461581686516*^9, 3.661008925320341*^9, 
   3.661084756758461*^9, 3.673866269051647*^9, 3.6738669988318157`*^9, 
   3.673868916502718*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmh8hxXCCHZGTNHPZNdrELheRUDiuN5DjUyuHCEDJz
4dAmcmpalJQLtQsSETWJhDXSIv+vWCtpFnnfi6ff5fP0JKg7y5v9WCyWDDKf
sRShZxjyyrWmjYKKEqUYtcbFtqKLicwlul329vkAtmQOhDrABakyIYgyJFOR
WuP1MUS1po+aCqTEf1arOQ+jJKnS1o6eVL2variUqGI/jk1gV/Z76zLYn2N9
jg6nxPNo4hhBwWyjRMqjZP+Xt4qqbjZdqDC9woOmGNxeNCZLE5gH7vKGElGP
XpqMHkxOiNGUX3UzapSy2lCtv12H/riFO2hhsOUCFVhC39Aeid2HirJdbBko
+fA2FYFzwyYt6roXb6G6gjqPHHTMrHwqwKO8u8ZikFoHq6fB7T9OvAG82EnN
QjfMe93oWFrkF7p1a/Gh/Oi+kXA+9DzZx9ElXsUcquarzehTjszGFVDScShq
dxZTUrty1YsGKFw6NMZ5yr5Wwo8viyHf4E3+Oru6AXblOurRM7mxtAb8BzAP
3WI=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for mu \"\>", "\[InvisibleSpace]", 
   "10664.019305026453`"}],
  SequenceForm["Value for mu ", 10664.019305026453`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCRmm4jN6QI5JJusmdM32cUuFJKhHFYayXGolcOFIYS5
GBpZc2halJQL5YJEiZpEwkJa1v5foZU0i7zvxdPv8nl6kjRdlS0BLBZLDlnI
Wok2MAx549ozxkBFmVKM2uNFbehSMnOJble4Px7A1uzBMCe4KFMmBVOGZCvS
a31+hqjWDLHTHEoC53Xa83BKUqoPO9DTGo9Vy6VEJXo/MYPdEk/bKjiQa3+J
i6TE+2iOMIKC+SapjEfJ/i/PiqpuNl1oVGaVF02b/fShwhwtJx/c5Q0no16D
LBU9mJoUo2m/mhbUKGO1o7pAhx79+YzaQYtCbBeowBbmRnulDj+aKHGx5aD0
3ddcDJpGzDrUdS/eQvWF9d4S0Dln+VCAx/l3TaUgtQ+pZ8Dtv4iEWfBiJz0H
3Vje60HHM2K+0K1bmx/lx/WPRvKh59kxga7wqkyohq9ZRp9z5YdcASWdR4kd
T6WU1Fmu+tAghUuPCp/O2NdK+PF1KfQbvClYZ6sbYVeeswHVa43lteA/Lqjd
Og==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for A \"\>", "\[InvisibleSpace]", 
   "1.6889478647444098`*^9"}],
  SequenceForm["Value for A ", 1.6889478647444098`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIWKOF8ghbWRtc/omu9iFQnIqh5VGmtNQK4cLQwhz
4TQip6Y1JeVCuSBRoiZNwkJalv9Xo5U0i7zvxdPv8nl6EtUd5c1+LBZLDpnP
XIk0MAx541jSR0BFiVKMWuJiW9HFJOYKtZa5Ph7Alqz+UAe4IFUmBlGGZCnS
arw+hqg2DNGTgZT4z+o0F2GUJFceadGzqvd1DYcSVaz71AR2Zr+3roJ9OZaX
mAhKPI+mcCPIn22USLmUHPxy11GVfduJCjIqPGjq9KcXFYo0gTJwjzuYhHoM
0hT0cGJcjKb+qptRo5TVhur8bXr051OwixYEmy9RvjnUhXZLbD40IdvJloMS
t7epEJwbMulQ5714B9Xn13mKQMfM2ocCPJHdNRaD1DJQPQVa/8Ljp8HL3TQR
urW834WOpkd9oTu3Zh/Ki+kdjuBBz7NtDF3hVsyhap56GX3OkR9x+JS0Hydo
n4opqV277kEDFE49Knw6Z98o4cfXxZBv0J63ya5ugF25jnrUumQsrQH/ATGe
3Z8=
  "]],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEImdRMxpF8ghmWXNnL7JLnahkAzlsGgkx6FWDheGEObC
oRE5NS1KyoVyQaI0NYmEZdKy/L9CK2nW5H0vnn6Xz9OTqOksb/ZjsVhyyELG
SqSBYcgbx5I2CipKlGLUEhfbii6JmCt0t8z1+Qi2ZA6E2sFFmTIxiDIkU5Fa
7fEyRLVhiJ4KpMR/Tqe9DKMkqfK4HT2vel/XcihRxX6cmcCu7PfWVbBfYnmJ
4VLifjKFG0HBXINUxqPk0MdbR1W32040Ir3CjabMfHlQYZY2MBfc5w2JULdB
loweTU6I0RSfphk1ylhtqM7fpkd/vyL20IJgsxUVmENdaI/U5kUTsp1sOSj9
8DQWgvPDJh3qfBDvoPr8WncRaJ9d+1SAp7n3DcUgtQyqp8Hdv/D4GdC6l5qF
bi0fdKNjaVHf6M6d2YvyY/pGuHzocdjG0RVexTyq4WuWUYdEfswRUNJxktD+
XExJzdp1LxqgcOpR4fMF+0YJP74uhfyAt3mbbHU97Mqx16FNVmNpNfgPMLzd
iQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"gv\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`"}], "}"}]}],
  SequenceForm["gv", CompressedData["
1:eJxTTMoPSmVkYGAwZICABn8mx1F6YGkA4Aw2Tg==
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQrSYHSJnLlgOyciaOX2TXexCITHKYaWRHIdaOVwYQg67
wBqRU9OyknKhdkGiRE2ahGXSIv+v0EqaRd734ul3+Tw9SZquypYAFoslhyxm
rkQaGIa88KzpY6CiTClBrfFxbagpmblEdyteP+7B1qxBrgtckimTgilDshRp
ap+fIaoNQ/R0ECVso057HkZJSrW9Az2teVvX8ihRxb2fmMHunLe2VXAg1/oU
E0GJ98EcPg8KjU1SGZ+Sg1/+OqpybntQUUaVFxXPfvrQ2GxtUD64xx9ORr0G
WSp6ODUpQcW/mhZ0XsZqR3Vshx79+RTZ0KIQywUqtHBf0V6pw48m5ng4clD6
7msuBhdGzDrUcyfZQfWF9d4S0DW39qEAj/Nvm0pBah2qnQF3/8ITZsELW1o2
urW834OOp0d9oTs3Fj8qiOkfjRBAj9sxga7wqxZQjUCzjLpz5XaekJLOo8SO
x1JK6tau+tBAhUePxj6eca6V8OOzKfQbdBZscmobYVeeqwE1cYzlavAfLOrc
9g==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"eev\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`"}], "}"}]}],
  SequenceForm["eev", CompressedData["
1:eJxTTMoPSmVkYGAwZICABn8mx1F6YGkA4Aw2Tg==
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCRmm8gcxgVySEbWNqdvsotdKCSnclhppDkNtXK4MISM
XTg0IqemRUm5UC5IlKhJJCykRft/mbWSZpH3vXj6XT5PT4K6o7zZj8ViySFz
GUuRBoYhb1xr2gioKFGKUWtcbCu6kMhcottl758PYEtmf4gdnJcqEwIpQzIV
qTVeH0NUa4boSQ4l/iad5jyUkqTKQy16WuVc1XApUcW6TsxgZ7azdRnsy7G+
CMMp8Tyaw2ZAgalRIuVRsv/LW0VVN5sONCK9woOmGN1eNCZLw5GBu7zBRNRj
kCajBxPjYjTlV92MzkhZbajO36ZHf9wRO2hBkOUCFVhC3tFuic2HirIdbDko
cXmbCsHZIbMOddyLt1B9fp2nCLRPr3wqwGPZXWMxSK0D1VPg9l9YvBG82EnN
QjcW97rQ0bSoL3Tr1uJD+cLe4XA+9DzbxtAlXsUsquarF9HnHPkhV0BJ+5FI
+1RMSe3KVQ8aoHDo0ZinM/a1En58XQj+Bm/y1tnVDbAr116PfshMpTXgPzET
3YI=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"soptv \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1746.9300000000003`", ",", 
     RowBox[{"-", "889.2974999999999`"}], ",", "1746.8250000000003`", ",", 
     RowBox[{"-", "2784.5061`"}], ",", 
     RowBox[{"-", "901.6814999999997`"}], ",", "1933.0229999999992`", ",", 
     "2687.9024999999997`", ",", "1016.932499999999`", ",", 
     "1048.8900000000003`", ",", "1165.6455`", ",", 
     RowBox[{"-", "499.4325000000001`"}], ",", "2344.7564999999986`", ",", 
     "3448.368`", ",", "4393.731`", ",", "1133.1569999999997`", ",", 
     "1956.5924999999997`", ",", "1734.6764999999996`", ",", 
     "2810.5650000000005`", ",", "2198.7659999999987`", ",", 
     "1713.2040000000006`", ",", "3719.5725000000016`", ",", "4144.62`", ",", 
     "1991.7059999999992`", ",", "2956.7159999999994`", ",", 
     "31.507499999999936`", ",", "3926.744999999999`", ",", 
     RowBox[{"-", "727.8735000000001`"}], ",", "2449.908`", ",", 
     "1598.1554999999998`", ",", 
     RowBox[{"-", "520.836`"}], ",", "1371.343499999999`", ",", 
     "1611.3450000000003`", ",", "4963.576499999999`", ",", "2639.625`", ",", 
     "1021.308`", ",", 
     RowBox[{"-", "647.5035000000003`"}], ",", "2675.1149999999993`", ",", 
     "1962.2235000000005`", ",", "1710.6330000000003`", ",", "3991.71`", ",", 
     "1728.7335000000003`", ",", 
     RowBox[{"-", "505.4385000000002`"}], ",", 
     RowBox[{"-", "1089.3014999999998`"}], ",", "3034.3244999999997`", ",", 
     "1807.4265`", ",", 
     RowBox[{"-", "864.9839999999995`"}], ",", "3168.4470000000006`", ",", 
     "4180.047`", ",", 
     RowBox[{"-", "205.05450000000042`"}]}], "}"}]}],
  SequenceForm["soptv ", CompressedData["
1:eJxTTMoPSmVkYGAwBGKF1teBO7xnO1SJrHNPPNV94NyZM2d8gHxmzi555oNL
D5xY6LqtWLfngMV9/15xk3kO7g+rRM79X+KgENN/qPR4v8ORrxox/ckTHNy2
ff47xWySQ8gOudbXZvUHrp37HtwcuMjh9s+6rD0fVjkkPL2gtFtzo8OjpbOP
LNgy0aEFaG3cpHkOP4DSW6RmO9QA7Vf8utSh7KWaYYfuQoceR6COI7Mc3gfu
kFPlX+sAcuY8gw0OT36v/HhJbr7DPf/e6XmSyx0cQPY12jtwXF9cULt2nUNJ
xsS3f/a1HegE6Vde7CATlWI9/8cMh2WzjyhscGs4sOFE2b743Klg+xJ1Zzqo
sDVOnZy82QEYFAwO85c4RFhuOVH2qt/Bh4dJm92m5YDwOveHVs+WOCyS0r/7
ZMU8hyqQ+3bNcggC2putv96hYt98qfdMsx0OlEyWYJlefwDkXRPWiQeAylWW
bVnu8AvkP9s5DhJAd9xn7z6wEGTOgRUOQGM4eEI2OHgArdu3MPMAAJEMwXY=

   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEImdRM52gYzWRtY2p2+yi10oJBvlsNJIjkOtHC4MIady
akROTYuScqEkEiVq0iQspEX+X6GVNIu878XT7/J5ehL0zcW1PiwWSwmZSVsI
NzMMeeHYRP2gqkAtRW2xMfXonJC5QDeLXj/uwDpxV7ATnJWrEwIoQ8SqFJ3H
yxDNijlyxJ8S30mj4SyEksTS/Ub0pOxt2cChRBPzfmwBW9Lf6hfBzgzbUxSX
Eve9JXQCFExWy+Q8SnZ/ecuoxrHuQsNSS9xo8tinB42WGPwV4DavR4i6zfIk
dG94SIom/+pr0Qk5qwE1+tpN6M9n2BaaE2g9RwXW4Fe0TWb3ovHpLrYSlL17
anLB6V6LEXXdSjdQU3aFOw90ji99qMAjxU11Pkht3dpRcPMvNG4MPN9KkaBr
8zut6IAo4gvduLZ6UX5URx+XDz2P9kF0gVcyjer5+nn0MUO5zxFQ0nQY3/iQ
T0n50mU76qdymdDoh1P2lRp+fJ4L+gYdWatsbRXsynRWogf2qUId+A8zwN3r

  "]],

Cell[BoxData["\<\"Variance of Subsidies (adjusted to units of $/mile) \"\>"], \
"Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvC/LURitomcuUBGMrJmTt9kF7tQSE7FrDSS41ArhwtDyOli
aEROba0pKRdqFyRK1CQSFtIi/682raRZ5H0vnn6Xz9OTpO6qbPFjGEYGWcxc
jdSzLHnjWURjoLxMIUYt8XFt6HIye4laK97dD2Br1mCIA1ySKpICKUuy5Ol1
Xh9LlJv66OkASjgLWs15KCUp1bYO9LTmY0PDo0QZ5zoxgt05H21r4ECu5SUm
nBLPozFsHhQuqCRSPiUHv/wNVHmz40QjMqo8aNrspxeNzdYE5IN7/OFk1KOX
pqKHU5NiNO1X3YLOS5l2VMux69Cfz4hdtCjIdIEKTSHvaK/E7kMTc5xcGShx
eZuLQcOIUYs678VmVFfY4CkBHXPrbjl4nH+nKgWpZah2BrT+hSXMghe76dno
9sp+DzouivpCzbcmHyqI6R8NF0DPs30CXeVXGVC1QL2CPufKbDwhJZ1HiR1P
pZTUr1/1of5ypw6NfTrjXivgx9fl4G/wpmCLW9sEu/IcjSiHMZTXgf8oPdxh

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"VMT weighted Mean, Variance of subsidies across states \"\>", 
   "\[InvisibleSpace]", "0.007301083799242316`", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.00017196339842062328`"}],
  SequenceForm[
  "VMT weighted Mean, Variance of subsidies across states ", 
   0.007301083799242316, " ", 0.00017196339842062328`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAplDRtbM6ZvsYhcKyVAOqzWS41ArhwtDyOli
aEROTf+2knKhXJAoUZMmYSEt8v8KraRZ5H0vnn6Xz9OToOmo0PpwOBw5ZD59
OdzIsuSFx4hHQEWpUoIysTEt6GIie4Fay18/7sDmzP5gJ7ggUyYEUJZkKlJr
PF6WqNaNkZP+lPjO6XVnIZQkVR20oSfVb2s6HiWqmPdjM9iZ/dayAvblME9R
YZS4782hs6BwrlEq41Oy98tfQ1WOLRcqSqt0oynTnx40Okvnnwfu8AcTUbdR
lozuT4xL0JRfjRadlXFaUb2v3YD+fIpsaGGg5RwVWoJf0W6p3YvGZ7u4clD6
7mkqAk1DZj3qupVso4aCOncx6JxZ/VCAR3k3jSUgZQbUU6D1LzRuGjy3pWah
m0u7XeioOOIL3b62eFFBVO9wmAB6Hu1j6DK/0oRqBJol9DFHfsATUtJ+GN/2
UEJJ7eplD+qncBnQ6IdT7pUSfnxeDPoGHfkbXHUD7Mp11qNMhqmsBvwHLr/d
Nw==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"singlev \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`"}], "}"}]}],
  SequenceForm["singlev ", CompressedData["
1:eJxTTMoPSmVkYGAwBOI1KTsqlslMdBilB5YGACTTvT8=
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQiRmm8icL9BGMrJmTt9kF7tQSE7FrDSS41ArhwtDyOli
aEROTctKyoVyQaI0NYmENdIi/682raRZ5H0vnn6Xz9OTrOmqbAlgsVhyyGLm
arSBYcgb1yIeAxVlSglqSYhvQ5dTmCt0r+Ld8wi2Zg2GOcAlmTI5mDIkSyGq
8/kZoto0xE4HUcJe0GkvwylJrT7uQM9rPja0XEpU8e4zE9id89G2Bg7kWl6E
kZR4n0wR86BgQS2V8Sg5/OVtoKrbHRcalVHlRdNnP31oXLY2KB/c5w2noF6D
LA09mpqUoOm/mhZ0XsZqR3Vsux79+YyyokUhZhsqMIe9o71Sux9NynFx5KDU
7WsuBo0jJh3qepDsovrCBm8J6Jhb9yjA0/x7dSlILUO1M+DeX0TiLGizirLR
7ZWDHnRcHPOF7t6Z/Shf2D8ayYeeZ/sEusqrMqIavmYFfc6VH3MFlHSeJHU4
SympX7/uQwMVLj0a57zg3Cjhx9fl0G/wtmCLU9sEu/IcjaipwVheB/4DL3rd
VA==
  "]],

Cell[BoxData["\<\" A Versus B \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC1mm8icL5CRjKxtTt9kF7tQSE7FrDTSnIZaOVxsCDld
DI3IqWlRUi6UCxIlahIJy6RF/l9tWkmzyPtePP0un6cnWdNZ2RLAYrHkkPms
5WgTw5A3rk00AirKlGLUlhDfhi6mMFfoTsW75xFszR7gOMAFqTI5hDIkW5FR
5/MzRLVuip0MpiRwTq+9CKcktfpIh57VfKxpuZSo4t2nFrAr96NtBezPs70I
IynxPlkiZkHBnFoi5VFy8MtbQ1W3Wy40KrPKi6ZPf/rQuBxtsAzc4w2loF6T
NA09nBgXo+m/mhZ0VspqR/WBdgP68xm1ixaFWi9RgZXzjvZI7H40KdfFloMS
t6+5GDQPW/So60G8jRoKG7wloGNm1aMAT2T36lKQ2gZrp8Cdv4jEafByNyMH
3Vza70ZHRTFf6Pad1Y/yhX3GSD70OO1j6DKvyoxq+Jol1JknP+IKKOk4TtI9
l1JSv3rdiwYpXAY07vmcfaOEH18Xw77B24INdm0T7Mp3NKKtRnN5HfgPLwLd
Sg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.99096718022101709945277678884982796652`12.46925206287034"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.99096718022101709945277678884982796652`12.46925206287034],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQrSYbSJzvkAOycja5vRNdrELxZJTOaw0S45DrRwuDCGn
i6EROTUtk5QL5YJEiZpEwkJalv9XppU0i7zvxdPv8nl6EjTt5U1+LBZLDpnL
WIowMgx541nThkFFiVKMWmNjdOhCInOJbpe53A9gc2Yf1wHOS5UJgZQhmYrU
aq+PIao1Y9REACXsWb32PISSpIrDVvS08n1Vy6NEFfNxYgY7st91y2BvjvVF
FEaJ59EcOgMKZxskUj4l+7/8VVR1s+lEw9PVHjRl6tOLRmdpA2TgLn8gEfUY
pcnowfiYGE351TShM1JWC6pn2w3oz2e4DS0IslygQgvXhXZJ7D40PtvJkYOS
D29jIWgaNOtR5714CzXk13qKQMf0ilsBHsvuGopBau2vmgS3/0LjpsALW2oW
urG414mOpEV+oVu3Fh8qEPUMhQmg59k+ii7x1SZUI9Asos858kOekJK2o/jW
p2JKalauulF/hdOARj+dca6V8OPrQvA3eJO3zqmqh125jjp0x2YqrQb/ATJY
3bo=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state  \"\>", "\[InvisibleSpace]", 
   "2.5822593804614525`*^9"}],
  SequenceForm["Welfare from state  ", 2.5822593804614525`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAhktI2vm9E12sQuFxCiHlWZpTkOtHC4MIaeL
oRE5NS1KyoVyQaI0NYmENYcW+X9lWkmzyPtePP0un6cnSd1e0ezHYrFkkLnM
pUgjw5BXjlU4DMpLFWLUGh+nRReSmQt0u/zNfQ+2iPpCHeC8VJEURBkikqer
vD6GKNeM0ROBlPjP6jXnYZSkVB3q0NPq91UNhxJl3MeJGezIftcug7051qeY
CEo8D+bwGZA/2yiRcinZ/+WuosrrTRcqyKj0oGlTn140NksTmAfucgeSUY9R
mooejI+J0bRfdTM6I2W1onp/uwH9+RTsoIXBFhvKt4S+oV0Suw9NzHaxZaDk
w9tUBJoGzXrUdSfeQg0FdZ5i0DG94paDx3m3jSUgtfbXTILbf+EJU6BtJz0L
3Vjc60RHhFFf6NaNxYfyYnqGInjQ82gfRZe4lSZUzVMvoo85skMOn5K2o0Sd
s4SS2pXLbjRA7jKgsc4z9pUCfnxZCPkGr/PX2TUNsCvXUY8+O01lKvAfNUfe
Hg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform  \"\>", "\[InvisibleSpace]", 
   "2.5822593788415174`*^9"}],
  SequenceForm["Welfare from uniform  ", 2.5822593788415174`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEJbNNpEzF2hIG1kzp2+yi10oJKdyWK2R5jTUyuHCEHK6
MJplOTUtSsqFckGiRE0iYSEty/8rtJJmkfe9ePpdPk9PkrqjQuPHYrHkEFOm
JdLIMOSVZ08fARWlSglqj49rRReTmQt0q9z9cQ+2ZPVznOCCTJkURBmSpRDV
en0MUa0aoycDKfGf02vPwihJqTrQoSfVbytaHiWquPdjM9iZ/da6DPbl2J9j
winxPJi5s6Bwrkkq41Oy98tfQVXXGy40IqPSg6ZNf3rRWLE2MA/c4Q8mox6j
LBXdnxiXoGm/ag06K2O1oXp/hwH9+YzYRguDbeeo0MZxo91Shw9NzHax5aD0
3dtcBM4PmfWo606yiRoK6j3FoHPG+qEAj/Jum0pAah+omQK3/rgJ0+D5tkiM
ri/tdqGj6VFf6OaNzYcKYnqHwwXQ8+QYQy38ynlULVAvoU858gOekJL2w0Td
YwklddbLHjRA4TKgsY+n7Csl/PiyGPINXuevsWsaYVeuswE1h5rKasF/LVDd
BQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "1.6199350357055664`"}],
  SequenceForm["Exact  ", 1.6199350357055664`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQiRmh8iZC+SQjKy/OX1bdrELhWQoh9UayXGolcOFIeR0
sVkjcmpalJQLtQsSJWoSCQtpkf9XaCXNIu978fS7fJ6eRE1HhdaPw+HIIObM
xQgjy5IXvj19BJSXKiWoPS62BbUksefoVvnrxx3YnNUf4gLnGWViIGVJljyt
xutjiWrVGDUZQAl3Tq87DaUkucrRhh5Xv63o+JSoYt+PrGBnzlvLEtiXa3+K
DqfEc28NmwVFc41SRkDJ3q9gBVVdbbhRcUalB02d/vSiMdm6gHxwRzCYhHqM
TAq6PzEuQVN/NVp0luG0onqu04D+fIq30aIg2xkqsoW8ot1Spw9NyHHzZKD0
3dtUDJqGrHrUfSvZRA2FdZ4S0DWz/CEHD/NvGhUgtQ+op8Ctv7D4afBsOy0b
XV/Y7UJH0yO/0M1rmw8VRvcOhwuh59E5hi4KKk2oRqhZQB9zZQ6+iJL2g4S2
BwUltcsXPai/3G1AYx5OeJdK+PHZEvwNXhWs8dQNsCvPVY9WMOayGvAfLFLc
6w==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1625698863454`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1625698863454`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCRmh8hxXCCHZGTNnL7JLnahkGyUw0ojOQ61crgwhAwX
Do3IqWlRUi5kFyRK1CQS1kiL/L/atJJmkfe9ePpdPk9PgqajosmPxWLJIPMZ
yxEGhiFvXEvaCCgvVYhRS1xsC7qYyFyhO+Xv7kewObM/xA4uSBUJgZQhmfJU
tdfHEOW6IWqSQ4n/rE57EUpJUpW1DT2r/ljTcilRxrpOTWBn9kfLCtiXY3mJ
DqfE82QKmwEFsw0SKY+Sg1/eGqq83XKiwvRKD5pi/PSiMVlaTh64xxtMRD0G
aTJ6ODEuRlN+NU3ojJTViur8bXr051O4ixYGmS9RgTnkHe2W2HyoKNvJloES
l7exCJwbMulQ54N4G9UX1HqKQfv0qlsOnuTdN5SA1DKgmgJ3/sLijeDlbmoW
urm034WOpkV+odt3Zh/Kj+4dDudDz7NtDF3mVc6hGr5mCX3OkVm5Akraj0Vt
jhJKalave9AAuVOPxjjO2TcK+PF1MfgbvM3fYKvqYVeuvQ49apwvU4P/MLLd
fA==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Subsidy first state \"\>", "\[InvisibleSpace]", 
   "1746.9300000000003`"}],
  SequenceForm["Optimal Subsidy first state ", 1746.9300000000003`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmm8h5LpBDMrJmTt9kF7tQSIZiVhrJcaiVw4Uhp+Fi
o5Hl1LQoKRfKBYkSNYmENdIi/69MK2kWed+Lp9/l8/QI1Z2VzX4sFksKMWUu
R+oZhrxybemjoKxMLkJt8XGt6GISc4luV7y5H8CWrIFQB7ggkQuDKEOyZGm1
Xh9DFGv66KlASvzntZrzMEqSqw/b0dOa91UNlxJF3MeJGezKeW9dAftzbc8x
4ZR4Hs2cOVAwrxJLeJTs//JWUcXNpguNyKjyoKmGTy8am60JzAd3eUNJqEcv
SUEPJidEaOqvuhmdk7DaUK2/XYf+fEbsoEXB1gtUYA19Q3vEdh+amONiS0Hx
h7epGDQOm7Wo6160heoK6z0loGPW4paBx/l3qlKQ2gaVM+D2HyfBAF7spGWj
G0t73ehYetQXunVr9aH8mL6RcD70PNnH0WVelRFV89VL6FOu9JAroKTjKLHd
WUpJneWqFw2QuXRorPOMfS2HH18WQ77Bm4J1trIRduU5GtBpg6m8FvwHMHXd
eg==
  "]],

Cell[BoxData["\<\" A Versus C \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEIkdI+a0C+SQzLJmTt+WXexGSE7lsNIsOQ61crgwhAwX
WCNyamtRUi6UCxIlahIJC2mR/1doJc2yvO/F0+/yeXqStB3lzQEsFksBmc9c
ijIxDHnlONJHQGWJWoI64uP0qEXMXKBbZW+f92BLVn+4C1yQq5NCKEOylGk1
Xh9DNGummMlgSgJnDbqzCEqSKw/a0JOq91UdhxJN3MexFezMedcvg31Sx3Ms
lxLPgzVyBhTMNsrkPEr2/nirqOZ6040KMyo8aKr5y4uKsnXBeeAOb1CMekzy
FHR/YlyCpv5pm9EZOasVNQQ6jejvl3AbLQy1naMCW/gb2i1z+tDEHDdbAco+
vE1F4NyQ1YC67yR21FhQ5ykGXdMrn0rwKO+2UQVSx0D1FLjlj0wwg+fbadno
xuJuFzqaHv2N2m9sPpQf2zvM5UPPk3MMXeJVzKFavnYRfZIqDjgCStoPE9se
VZTUrlz2oEFKtxEVPZ6yr9Tw44sl7Ae8zl9nVzfArlxXPXrkN5fWgP81At4Y

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.99096718081064726363993320934247754587`12.469252091194555"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.99096718081064726363993320934247754587`12.469252091194555],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEImdROa4C7SRjKyZ07dlF7sRklM5rDRLjkOtHC4MIacL
rBE5NS1KyoXaBYnS1CQSFtIi/6/QSpoh73vx9Lt8np5EbVtpox+LxVJA5tIW
I00MQ545NskQqCxSS1FbXKweNYuYM3Sr5OX9FmxK7w11gfNydWIQZUi6Ulzl
9TFEs2qKHg+kxH/GoDsNoySp3N6CHle8rug4lGhi344sYHvmq34J7MmyPQq5
lHjuLOHToGCmXibnUbL3y1tBNZcbbjQitcyDpkx+eNGYDF1gDrjD6xehHpM8
Gd0fG5WiKb/aRnRazmpGDf5OI/r9EbGN5gdbHajAGvqCdsqcPjQh081WgLI3
b0MBODtgMaDuG+kmasyr8RSCrqnldyV4mHNdrwKpra9yAtz6C4+fBB3b4gx0
fWG3Ax2WRH2im1dWH8oXdg9y+dDz4BxBF3lls6iWr11AH7IUdo6AktaDhJZ7
FSXVy+ddaIDSbURj7k/YF2r48ckc8gVe5q6xK+tgV7arFv2RTBVXgf8xG92B

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county full \"\>", "\[InvisibleSpace]", 
   "2.5822593807707396`*^9"}],
  SequenceForm["Welfare from county full ", 2.5822593807707396`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCRmh4jN6QIZyciaOX1bdrGSkJzKYaVZchxq5XBhCDld
jDUip6ZFSblQLkiUqEmTsJAW+X+FVtIs8r4XT7/L5+mJ17aXNfmxWCwFZC5t
McLEMOSFa5cMg8oitRS1x4j1qCWBuUC3Sl8/7sDm9L4QFzgvV8cHUoakK1Oq
vT6GaFZNURMcSvxnDbqzUEoSKw5a0ZPKtxUdlxKN+P3YCnZkvumXwN4s+1N0
OCWee2vYDCiYbZDJeZTs/fJWUI1zw40KU8s9aPLUpxcVZeg4OeAObyAB9Zjk
Sej++JgUTf7VNqEzclYLavB3GNGfT+E2mh9kO0cFtpBXtEvm8KFxmW62ApS9
exsLQPOg1YC6b6WbqDGv1lMIuqaXP5TgUc5Ngwqk9v6qSXDrLyx2CjzfTslA
1xd2O9ERSeQXunlt86H86J6hcD70PDpG0UVeuRnV8rUL6GOW4oAroKTtMK71
QUVJzfJlNxqgdBtR0cMp+0oNPz5bgr9BZ+4au6oedmW76tCX4umSavAfMVnd
jQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259378841797`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259378841797*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJnLeLpBD2siaOX3/ZRe7EZJTMSuNNKehVg4XhpDT
BdbIcmpalJQL5YJEiZpEwjJpkf9XaCXNIu978fS7fJ4ekba9vMmPw+EoIPOZ
S1EmliUvPHv6MMiUqKSoPSG+BTWL2Qt0q+z14x5szuoLdYILcpUoiLIki0mr
8fpYol41xUwEUuI/a9CdhVGSXHmgR0+q3lZ0PErU8e/HFrAj+61lGezNsT/F
RlDiebCEz4DCWY1Mzqdk75e/gqqvN9xoZEaFB02d+vSicRJdYB64wx8Qox6T
PAXdHx+Toqm/2iZ0Rs5pRQ3+DiP68xm5jRYG285RoS30Fe2SOXxoUrabqwBl
797GInBu0GJA3XfSTdRYUOcpBp3T1g8GPMq71ShBau+vngS3/sITp8Dz7TQJ
ur6424mOpEd/oZs3Nh8qiO0ZihBAj8sxii7xK+ZQrUC7iLpyFAc8ISVth0n6
RyUltdbLbjSAcRvRuMdT7pUKfnw2h3yD1/lr3OoG2JXrrEfFndOlNeA/LDXc
7Q==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "1.9289426803588867`"}],
  SequenceForm["Exact  ", 1.9289426803588867`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEIkdI8zpAjmkbbJmTt+WXexGSE7lsGgkx6FWDheGEJsL
phE5NS1KyoVyQaJETSJhIS3y/wqtpFmT9714+l0+T0+CtqO0yY/FYikgcxmL
EUaGIa8ce9oIqCxSS1B7rKgFnU9kLtCtkrfPe7A5sz/UCVrk6oQgypBMZWqV
x8sQzaoxajKQEv8Zve4sjJKk8oM29KTifUXHoUQj+ji2gp3S95YlsC/L/hzN
pcT9YA03g4KZepmcR8mej7eCaq43XKgwvcyNpkx/edAYsS4wB9zhDSaibqM8
Gd2fGJegKT5tE2qWs1pRvb/DgP5+CbfR/GDbOSqwhb6h3TKHF42XutgKUPbh
aSgAZ4esetR1J9lEDXk17kLQaVr+VIJHObf1KpDaByqnwK2/8Lhp8Hw7VYyu
L+x2oaNpkd/o5o3Ni/Kje4e5fOh5coyhi7yyWVTL1y6gT1mKA46AkvbD+LZH
FSXVy5c9aIDSZUBjHk/ZV2r48WU+5Ae8zl1jV9bBrmxnLdpoMRVXgf8vT91V

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1632723405428`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1632723405428`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmmwhzukAOyciaOX2TXexGSE7lsNJIcxpq5XBhCGG7
wNpETk2LknKhKBIlahIJC2mR/1fbWkmzyPtePP0un6cnUdlV2erHYrGkkIXM
pUgdw5B3rjV9DJSVyUWoNU7YjhqTmCt0u+LD9Qi2ZQ2G2sFFiTwxiDIkS5ZW
5/UxRLGmi54OpMTfoFFdhFGSXH2oRs9qPldVXEoUQuepCezO+WxfBgdyra8x
4ZR4nkwcPSgwNIslPEr2f3mrqOJ204FGZFR50NRZtxeNzVYF5oO7vOEk1KOT
pKAHU5MiNPVX2YrqJawOVONv06I/7ogdtCjYcokKLKEfaK/Y5kMTchxsKSh2
eluKwfkRkwZ1PIi2UG1hg6cEtM+tuGTgSf59cylIrUO1M+D2Hyd+FrzcSctG
N8x7Peh4etQXunVn8aH8mP7RcD70vNgm0CVe1Tyq5CvN6Euu9JAroKTzOEH9
XEpJ/cp1Hxogc2jR2Odz9o0cfnwzhnyDtwXr7Nom2JVnb0S7j+bK68B/MLnd
hw==
  "]],

Cell[BoxData["\<\" A Versus D \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC2bHSLn7QI5JCNr5vRNdrEbITkVs9JIjkOtHC4MIaeL
oVnk1NaipFwoFyRK1CQSlkmL/L9iraRZ5H0vnn6Xz9Mj1nZWNAewWCwFZCHD
EmlkGPLKs6eNgspSlRS1x8e1oksS5hLdLn/7fABbMgc4TnBRrhKHUIZkKlNr
fX6GqNeN0VPBlATO63Xn4ZQkVR22o6fV72s6HiXquI8TM9iV/d66Avbn2J9j
IijxPpq5c6BwXiOT8ynZ/+WvoeqbLTcqSq/0oikzHh8am6ULzgN3+UMS1GuU
J6MHkxNSNOVX24zOyVltqD7QYUB/PKIdtDDUeoEKrZw3tEfm8KOJ2W62ApR9
+JqKQNOwWY+676U21FBQ7y0GnbOrn0rwOO9OUwJS+2DNNLj9x02YAS92UrPQ
zeW9bnQsLeoLtd1a/aggpm8kQgA9Lsc4auFXmlCtQLuMunIUhzwhJR1Hie1P
JZTUrV71okFKtwGNfTpjX6vgx5elsG/wJn+DXdMIu3KdDejUvqmsFvwHMX3d
oA==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.99096718022101709945277678884982796652`12.46925206287034"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.99096718022101709945277678884982796652`12.46925206287034],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEIkdI3MYF2hIRtbM6ZvsYjdCciqHlUZyHGrlcGEIOV0M
bSKnpkVJuVC7IFGamkTCGmmR/1doJc2avO/F0+/yeXoSNV0VLQEsFksBWcxY
iTIwDHnlWNPGQGWpSopa4+Pa0OUk5hLdLX/7fABbMwfDneCSXJUYQhmSqZTU
en0MUW8YYqaDKQlc0GkvIihJrrJ1oGfV7+taDiXquI9TE9id/d62Cg7kWJ9F
XEo8j6bIeVCw0CST8yg59PPWUfXNthsVpld60NTZLy8am6UNzgP3ecNJqMcg
T0GPpialaKpf04LOy1ntqC7QoUd/v4R7aGGoxY4KLOFvaK/M4UPF2W62ApR9
eJuLQOOISYe676U7qL6g3lMMOufWPpXgSd5dUwlIrUM1M+DuX2TCLGjfk2Sh
W+aDHnQ8Lfob3bm1+FC+qH+Uy4eeJ8cEusKrNKIavsaMPuUobBwBJZ3H4g5X
CSV1a1d9aJDSrUdjXefsaxX8+LIc9gPe5G+yaxphV66zAT13GctqwX80dN4E

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state native \"\>", "\[InvisibleSpace]", 
   "2.5822593782519174`*^9"}],
  SequenceForm["Welfare from state native ", 2.5822593782519174`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvDZMpGYbSJzlyNHy8iauX6TvdgbseQqx0qz5Bxq5XhhCLle
OBrRHE2LkvJC7QWJEjVpEhbSIv9foZU0a/L9vnj6vHyengRNR0WzH4vFkkMW
MlcijAxDXnnW9BFQUaqUoNbYGB26lMhcojvlb5/3YIu4P9gJLsqUCQGUIWJF
Wo3HyxDVujFqkksJe06vPQ+hJLnS1oaeVr2btTxKVDEfJyawM/tdtwr25Vif
RWGUuB9MobOgcK5RKuNTcuDjm1GVY8uFhmeo3Wjq9JcHjc7ScvPAPf5gIuo2
ylLQw4lxCZrq0zSjszJWK6pn2w3o71f4LloYaLlAhZbgN7Rbavei8dkujhyU
fniaisD5IZMedd1JtlFDQZ27GHTOrH0qwOO828YSkFoHqqfAnb/QuGnwYjct
C91c3u9CR9Mjv9HtG4sXFYh6h8ME0PNkH0NX+Op5VCPQLKNPOXIbT0hJ+1F8
22MJJbVrVz2ov8JlQKMfzzjXSvjxZSnoB3Tkb3CqG2BXrrMeTeIulNWA/ymK
3Iw=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full \"\>", "\[InvisibleSpace]", 
   "2.5822593788415174`*^9"}],
  SequenceForm["Welfare from uniform full ", 2.5822593788415174`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQiRmm8iZCzS0zLJmTt9kF7sRS07lsNIsOQ61crgwhJwu
HBqRU9PaSsqFckGiRE2ahLVJi/y/QitpFnnfi6ff5fP0pGg6K1sCWCyWHLKY
vRptZBjywrVkjoKKMqUYtSQm6NDlVOYKtVa8fjyAraKBMCe4JFOmBFOGiBTC
Wp+fIapNY+xUECXseb32IpyStKqjdvSs+m1Dy6VElfB+agK7ct90a2C/xPIU
F0mJ99EUMQcK5pukMh4lB7+8DVTl2PGgUVlqL5ox8+lD43O0QfngHm8oFfUa
Zeno4eSEGM341bSgczJWG6pn2w3oz2eUDS0KMV+iAnPYK9ojtfvR5FwPRw5K
333NxeDCsEmPeu7Fu6ihsN5bAjpn1z8U4En+XVMpSC2DNdOg9S8iaQa8tAlz
0O2V/W50LDPmC929NftRflzfSCQfetz2cXSVp15ANXzNCuqWyI+4Ako6jpPb
XaWU1K1f96KBCo8BjXedc26U8OPzcug36CjY4tQ0wq48ZwPaIFwsrwX/ASxO
3Ok=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare from State native - Welfare from uniform full  \
\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "0.5896000862121582`"}]}],
  SequenceForm[
  "Exact: Welfare from State native - Welfare from uniform full  ", \
-0.5896000862121582],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJmJz2AXLIZllzZy+yS52QUhO5fAvzZLjUCuHC0PI
6cKhETm1tSgpF8oFiRI1iYSFtCz/r9BKmkXe9+Lpd/k8PfFMW2mjD4fDUUHm
UpciTCxLXnm25CFQXaiRobYYsR5dkLAX6FaJ6+MebErrDXaA80pNfABlSZo6
qcrjZYl2zRQ17k+J74xBdxZCSUL5QQt6UvG2quNRohW/H5vB9ow3/TLYI7c9
R4dR4n4wh06Dwpl6hZJPyd4vfxXVXm860fCUMjcqnfz0oKJ0nX8WuMPvl6Bu
kzIR3R8blaHSX6YRnVZymlGDr92I/nyGb6O5gZZzVGgJdqGdCrsXjctwclWg
4t3TkAfODpgNqPNOZkWNOTXufNAxtfKhBo+ybusLQGrrq5wAt/5CYyfB8+2k
dHRjcbcDHU6O/EKtNxYvKojuHgwTQM+TfQRd4pfNooyAWUSf5KoDnpCS1sO4
lscCSqpXLrtQP7XTiIoeT7lXGvjxZSHoG7zOXudW1sGuTEctKi+aK64C/wEr
+tzj
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1625698863454`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1625698863454`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAhktI2ub0zfZxW6E5FQOK43kONTK4cIQwnYx
NCKnpkVJuVC7IFGiJk3CQlq0/1eslTSLvO/F0+/yeXpS1N2VrQEsFksOWche
idYzDHnjWIXjoKJMKUatiQnt6FIqc4XuVrx/PoBtoqFwJ7goVaaEUIaIFJl1
Pj9DVBv62JlgSgKNWs1FBCVp1bZO9KzGva7hUKJK+Dg1gz257vZVcDDP+hIX
RYn30RxpAPnGZomUS8nhL3cdVTm2Xaggq8qLZsx5fGh8jiZYBu5zR1JRr16a
jh5NT4nRjF91K2qQsjpQbaBdh/54BHtoUajlEuVbwt/RPondjybnuthyUPLh
aykGTaNmLeq6F++gusIGbwnonF/7VIAnsrvmUpBah2tnwd2/yKQ58HIvMwfd
Wj7oRSeEMV/ozq3Fj/LiBsaieNDzbJ9EV7hVJlTNUy+jz3lyG4dPSddxcudT
KSX1a9f9aJDCpUPjn87ZN0r48XUp7Bt0FGyya5tgV76zEZ3oWyivA/8BL4bd
WQ==
  "]],

Cell[BoxData["\<\" A Versus E \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQiRmm8icL5CRjKxtTt9kF7tySIZiVhppTkOtHC4MIacL
h0bk1LQoKRdqFyRK1KRJWEiL/L/atJJmkfe9ePpdPk9PsrajsjmAxWLJIQtZ
K9EmhiFvXKtoBFSUKcWoNSG+FV1KYa7Q3Yp3zwPYkt0f5gQXpcrkYMqQbEVG
rc/PENWGKXYyiBL2nEF3EU5JarVNj57VfKzruJSo4t2nZrAz96N1FezLs74I
IynxPpojZkHBnEYi5VFy+MtbR1WObRcalVnlRdOnP31oXI4uSAbu8wZTUK9J
moYeTYyL0fRfbTM6K2W1oQa23Yj+fEbtoUUhlktUYAl7R7sldj+alOviyEGJ
29dUDM4PmQ2o6168gxoL670loHNmzaMAT2R3mlKQWgfUU+DuX0TiNHi5l5GD
bi0fdKGjopgvdOfW4kf5wt7hSD70PNvH0BVe1Tyq5WuX0ec8uY0roKT9OEn/
VEpJ3dp1DxqocBnRuKdzzo0SfnxdCv0GHQWbHHUj7Mp3NqBj/tXyWvAfM4Ld
7A==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.99096718081064726363993320934247754587`12.469252091194555"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.99096718081064726363993320934247754587`12.469252091194555],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEC12RubaXiBHMrK2uX6TvdgrR3KVY6WR5hpquV4YQq4X
jkaWq2lRUl4oL0iUqEkkLKRl+f8KraRZ5Pt98fR5+Tw9El1rSYMfi8VSQeZS
l8LNDENeufbkIVBdqJGh9pjoJnRBylygW8Xuj3uwMa2X4wTnFRpJEGVImjqp
0utjiHbVHDkeSIn/jFF/FkpJfNmBAT0pf1vRcynRRr8fW8C2jLemZbA70/4s
5lHiebCETYPCmTq5gk/J3i9/BdVeb7hQUUqpB02c/PSiUen6QCW4w++Xoh6z
IgHdHxuVoYm/ugZ0WsFqRo3+DhP68ynaRnODbeeo0MZxox1yhw+Ny3CxVaD8
3VufB84OWIyo6062iZpyqj35oHPK+qEGj5S3dQUgtfdVTIBbf2Gxk+D5dlI6
ur64244OJ0d8oZs3Nh8qEHcN8gTQ8+QYQZf4pbOoTqBbRJ8yVQdcISUth3GG
xwJKqqyXnWiA2mVCox5P2Vca+PFlIeQbvM5eY1fUwq4sZw3aI7EWVYL/LTLd
Bw==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare county native - welfare uniform full  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "0.3423914909362793`"}]}],
  SequenceForm[
  "Exact: Welfare county native - welfare uniform full  ", \
-0.3423914909362793],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEIldInPuBXK0bLJmrt+0vdgrR3IVs9JIzqFWjheGkOuF
o21ZrqZFSXmhvCBRoiaRsExa5P8rtJJmke/3xdPn5fP0JOs6ypsCWCyWArKQ
ZY02MQx54TgyRkClSi1BHQnxLeiSiLlAt8peP+7BZnF/uAtclKuTQyhDxMr0
Gp+fIZpVU+xkMCWBcwb9WQQlKZUHbehJ1duKnkOJJv792Ax2St9alsG+HMeT
kEuJ98EcOQsK5rQyOY+SvV/eCqq53vCgUZkVXjRt+tOHxmXrg/PAHd6gCPWa
5Kno/sS4BE371TWhs3JWK2oIdBrRn8+obbQw1H6OCuzhr2i3zOlHk6QetgKU
vfsai8D5IbMB9dxJNlFjQZ23GHTN2D6U4FHerbYEpI6B6ilw6y8ycRo8307P
Rtctu13oaEbMF7p5Y/ejfGHvMJcPPW7nGGrlVcyjOr7OgrpzFAccASXth0lt
jyWU1Noue9AgpceIxj2esq/U8OPzUtg3eJ2/xq5ugF25rnr0R2UrrQH/ATIm
3ao=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county native \"\>", "\[InvisibleSpace]", 
   "2.5822593784994054`*^9"}],
  SequenceForm["Welfare from county native ", 2.5822593784994054`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmm8h5LpBDMrJmTt9kF7tySIxyWGmWHIdaOVwYQma7
GBpZc2halJQLtQsSJWoSCQtpkf9XaCXNIu978fS7fJ4eoaq7ui2AxWJJIfPZ
y9F6hiEvXEfmOCirkItQR2KCBl1MYc7RrarXjzuwPWco3A0uSOTCEMqQHFmG
0udniGJVHzsTTEmgSas+jaAktdbZiR7XvdnUXEoUCe9HFrAn702zAg7mO57i
Iinx3ls4RlBgahFLeJTs/fJsqOJqw4NGZdV40XTDpw+Nz1UHF4I7vJEU1KuX
pKH701MiNP1X1YYaJawOVBvo0qE/n1HbaEmo/QwV2MNf0T6xy48m53nYUlD8
7mstBc2jFi3quRVtorriRm8Z6J6zfsjAw8KblnKQOobrZ8GtP06SATzbzshF
15d2e9GJzJgvdPPa7kf5cQNjkXzoeXRNosu8GjOq4quW0Md8qZMroKTrILnz
oZySButFPxok8+jQ+IcT9qUcfnxeDPsGr4rW2PXNsKvA3YQaNNZKJfgPL8Ld
Yg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259378841797`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259378841797*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvDZMpHYJXLOXiBHMrL+5vpN9mKvHMlVjpVGcg61crwwhFwv
HI2sOZoWJeWF8oJEiZpEwkJatP+v0EqaNfl+Xzx9Xj5PT7y2o6zJj8PhKCEL
aSvhRpYlbwJbygioKlbLUVtsTAu6JGMv0e3S988HsDm9P9gBLjLq+ADKknRV
crXHyxLNmjFykk8Jd06vOw+hJKHisA09rXRZdAJKNDEfJyawM9PVsgr2Zdle
ooSUuB9NobOgZK5BwYgo2feJLKjmZtOJhqWWu9Gk6S8PGp2h4+eAu6JBGeo2
MonowcS4HE3yaZvQWYbTiuq5dgP6+xW2g+YHWi9QiTX4He1W2L2oNNPJU4KK
D09jATg/ZNKjznv5FmrIq3UXgo4Z86cKPM65aygCqW2gagrc/guNmwYvdpIz
0I3lvS50NCXiG926tXpRcVTvsFAMPc/2MXRFVD6PasXaZfQ5S3kokFDSfiRt
eyqipMZ81YP6q5wGNPrpjHethh9fl4J+wJvcdV5VPezKdtShzJS5pBr8By4W
3TE=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1632723405428`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1632723405428`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvA/C5GYbSI2pwvkkIysmdO3ZRe7ckiGclhpJMehVg4XhpDT
xdDIcmpalMiFckGiRE0iYSEty/8r1kqaRd734ul3+Tw98Zr2skYfhmFkkLn0
pQgDy5I3rjV1GJQXK8WoNUbUjC4ksJfoVqnz8wFsyugLtoPzUmV8AGVJhjyl
yuNliWrVEDXhT4nvrE57HkJJYsVhK3pa+b6i5VKiEn2cmMCOrPfmZbA32/oS
HUaJ+9EUOgMKZuslUh4l+7+8FVR1s+FAw9PK3WjylMuDCjO1/rngDm8gAXUb
pEnowfiYGE3+1TSiM1KmBdX52vTojyt8Gy0ItFygAkuwE+2S2LxoXJaDIwMl
H56GQtA4aNKhjnvxJqrPr3EXgfZp86ccPM69q1eA1NqvngS3/kJjp8CL7ZRM
dH1xtxMdSY38QjdvLV6UH90zFMaHnmfbKLrEKzeiGr5mEX3Olh1yBZS0HcW1
PikoqTZfdaN+coceFT6dca6V8OPrQtA3eJO3xlHXwa4cey3at2cuqQL/ATE4
3Zo=
  "]],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmm8iZC2QkI2vm9G3Zxa4cklMxqzWS41ArhwtDCHPh
0MhyalqUlAvlgkSJmkTC2qRF/l+ZVlqzyPtePP0un6cnRd1VpQlgsVhSyGL2
arSBYcgb1yocA2XlChFqTUxoQ5dTmWt0t/Ld/QS25gyG28EliSIlhDIkR5ZZ
7/MzRLlhiJ0OpiRwXqe9jKAkrea4Az2v/VjXcilRJnyemcDuvI+2NXAg3/oS
F0mJ59nEMYKCeZVYwqPk8Je3jirvtl1oVFa1B82Y/fKh8bna4EJwnzecinoM
knT0aGpShGb8qjWoUcJqR3WBNj368xW1h5aEWq5QgSX8He0V2/xocp6LLQXF
n76WUnBhxKRDXY+iHVRf3OgpA+1zZrcMPC18UMlBah2qmwF3/zhJs+DVXmYu
urVy0IOOC2O+0Z17ix/lx/WPRvKhx2mbQFd51Quomq9eQZ350mOugJLOk+QO
h5ySBvNNHxokc+nReMcF+1YBP74uh3nBu6JNdl0z7CqwN6HeB3NFPfgPNgze
OQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for mu \"\>", "\[InvisibleSpace]", 
   "10507.638476642005`"}],
  SequenceForm["Value for mu ", 10507.638476642005`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEInZEbnnBXK0jKyZ6zfZi71yJFc5VmuWnEOtHC8MIdcL
R7OsOZoWJeWF8oJEiZpEwhpp0f6/Mq2kWeT7ffH0efk8PUJVV5U6gMViySBL
2aZoA8OQN44tcwyUlyvEqC0xQYuupDBX6E7lu+cRbBMNhjvAZalCGEIZIpJn
1Pv8DFGuG2KngykJXNBpLiIoSa056kDPat0WDYcSZcLHqRHsznVr18CBPNtL
XBQl3idj5DzIX2iRSLmUHPxyLajydsuFCrKqvWj67KcPjc/RBBeAe9zhFNRr
kKahh1OTYjT9V6VG56WsdlQXaNejP5+CXbQ41HqJ8q3h72ivxO5Hk3NdbBko
+fC1loCLI0Yd6noQb6P6okZvKeiYM3vk4EnBfUsZSG1DdTPgzl9k0ix4uZuR
g26u7veg45kxX+j2ndWP8uL6R6N40PNsn0BN3OpFVMVTraLPebIjDp+SzuPk
DmcZJQ3m6z40SO7So/HOc/aNAn58XQn7Bm8LN9h1zbAr39GEGv3minrwHzQg
3gA=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for A \"\>", "\[InvisibleSpace]", 
   "1.6889559733504915`*^9"}],
  SequenceForm["Value for A ", 1.6889559733504915`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxTCSbHZFzvECOZJM1c/0me7FXjmSjHCuNNNdQK8cLQ8j1
wtHIrWlRUl6ovSBRoiaRsJAW+f9qtJJmke/3xdPn5fP0xOtayxr8WCyWAjKb
vhhuZhjyyrOlDoLKYpUEtcXGNKHzCcwFul369nEPNmb0hDjBObkqPpAyJEOZ
ovX6GKJeM0eOcSjxnzbqz0IpSaywG9CTyvdVPY8SdYz72AK2Sd+blsDuLNtz
VBglngcLdwoUTtfJ5HxK9n/5q6j6etOFitLKPWjyxKcXjc7Uc3LAXX5fAuox
y5PQg9ERCZr8q2tAp+SsZtTo7zChP5+iHTQ/yHqOCq0hb2iHzOFDxVIXWwHK
3N76AnCm32JEXXeSLdSUV+0pBJ2Tyx9K8Cjntq4IpLZezTi4/ceNmwDPd1Iy
0Y2FvXZ0KDXiC926sfpQQVTXQJgAep4cw+giv3wG1Ql0C+hTlsLOE1LScig2
PBZRUrV82YkGKF0mNPrxlH2lgh9f5oO/wevcdbamFnZlO2vQxriVEi34DyyS
3PM=
  "]],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEIldIsyxF8iRjKyZ6/eXvdgrR3KVY7VGcg61crwwhFwv
HM0yZ9OipLxQXpAoUZNIWEiL/H+1aSXNIt/vi6fPy+fpiVe3l2l8OByOAjKf
Zgo3sCx541lThkGmWClFrTHiZnRRwl6i26XvrgewKb0v2A4uyJXxAZQl6Uxy
tcfLEtWaIXLCnxLfWZ32PISShIrDVvS08mNVy6NEJXaeGMGOzI/mZbA3y/oS
xafE/WgMnQFFsw0yuYCS/V/BKqq62XSgYanlbjRp6tODRmdo/XPAXcGABHUb
5InowfiYFE36VWvQGTmnBdX52vToz2fYDpofaLlARZbgd7RLZvOicZkOrgKU
OT2NBeDcoFGHOu6lW6g+r9ZdCNqnzS4GPM65aygCqbW/ahLc/guNnQIvdpIz
0I2lvU50JCXiC926tXhRYVTPEF8IPc+2UdQkKJ9D1UL1EvqcpTjkiShpO4pr
fSqipMZ81Y36MQ49Gv10xr1Wwo+vi0Hf4E3uOreqHnZl2+vQe2alpBr8BzEP
3Yc=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"gv\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`"}], "}"}]}],
  SequenceForm["gv", CompressedData["
1:eJxTTMoPSmVkYGAwZICABn8mx1F6YGkA4Aw2Tg==
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvA/C9FidoicuWAZyciaOX2TXezKIRmKWWkkx6FWDheGkNOF
QyOaQ9OipFwoFyRK1CQSFtIi/682raRZ5H0vnn6Xz9OTqGsvb/RjGEYBmU9f
jjCxLHnj2STDoLJEJUVtcbHN6GISe4lul727H8CmjD6uA1yQqxKDKEsylKnV
Xh9L1GumqIlASvxnDfrzUEqSKw9b0dOqD4ueR4k61nViBjuyPppXwN5s20t0
OCWeR3PYDCic1crkfEr2f/kWVH2z6URFaRUeVDz16UVjMvWBueAufyAJ9Zjk
KejB+JgUFf/qGtEZOdOCGvztRvTnU7SDFgRbL1ChlfuOdsnsPjQhy8lRgDKX
t6EQnBs0G1DnvXQLNebXeopAx/SqWwke595pi0Fq69dMgtt/YfFT4MVOaia6
sbTXiY5IIr/QrVurDxVE9wyFC6Dn2T6KLvMr5lCdQLeEPmcrDnlCStqOElqf
iimpWb3qRgOUTiMa83TGuVbBj6+LId/gTd46R1MPu3IcdaiYsZRWg/8pv9yV

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"eev\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`"}], "}"}]}],
  SequenceForm["eev", CompressedData["
1:eJxTTMoPSmVkYGAwZICABn8mx1F6YGkA4Aw2Tg==
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJmKOF86STdbM6ZvsYlcOyakcVhrJcaiVw4UhhO3C
oRHNoa1FSVwoFyRK1CQSFtKi/b8araRZk/e9ePpdPk9PgrKrosWHxWJJIQuZ
KxFahiHvHEv6GCgrlQtRS2xMG7qUyFyh2+Ufn49ga9ZgsA1clMgTAihDsmRp
tW4PQxTr2qhpf0p89WrVRQglSVVHHehZtcOo4lCiiHGeGsBukaNtFRzIsbxG
h1HiejKE6kC+vkks4VJy4OUaUcXtlh0Nz6h0oSmzX25UkK3yzwN3ucOJqEsr
SUYPpyaFaIpX2YLqJKx2VO1r1aC/X+E7aGGg6RLlm4I/0F6x1YPGi+xsKSh2
upuLwPkRgxq1PwjNqKag3lUM2ubWPmXgSd59UwlILUM1M+D2X2jcLHi5k5aN
bi7v9aDj6ZHfqPnO5EF50f2jYTzoebFOoCvcynlUyVMuoy850iMOn5LO4/iO
5xJK6tau+1A/mV2DCp7P2Tdy+PFtKegHvM3fYNc0wq5cWwO6n2osqwX/AS8+
3Uo=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"soptv \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1746.9300000000003`", ",", 
     RowBox[{"-", "889.2974999999999`"}], ",", "1746.8250000000003`", ",", 
     RowBox[{"-", "2784.5061`"}], ",", 
     RowBox[{"-", "901.6814999999997`"}], ",", "1933.0229999999992`", ",", 
     "2687.9024999999997`", ",", "1016.932499999999`", ",", 
     "1048.8900000000003`", ",", "1165.6455`", ",", 
     RowBox[{"-", "499.4325000000001`"}], ",", "2344.7564999999986`", ",", 
     "3448.368`", ",", "4393.731`", ",", "1133.1569999999997`", ",", 
     "1956.5924999999997`", ",", "1734.6764999999996`", ",", 
     "2810.5650000000005`", ",", "2198.7659999999987`", ",", 
     "1713.2040000000006`", ",", "3719.5725000000016`", ",", "4144.62`", ",", 
     "1991.7059999999992`", ",", "2956.7159999999994`", ",", 
     "31.507499999999936`", ",", "3926.744999999999`", ",", 
     RowBox[{"-", "727.8735000000001`"}], ",", "2449.908`", ",", 
     "1598.1554999999998`", ",", 
     RowBox[{"-", "520.836`"}], ",", "1371.343499999999`", ",", 
     "1611.3450000000003`", ",", "4963.576499999999`", ",", "2639.625`", ",", 
     "1021.308`", ",", 
     RowBox[{"-", "647.5035000000003`"}], ",", "2675.1149999999993`", ",", 
     "1962.2235000000005`", ",", "1710.6330000000003`", ",", "3991.71`", ",", 
     "1728.7335000000003`", ",", 
     RowBox[{"-", "505.4385000000002`"}], ",", 
     RowBox[{"-", "1089.3014999999998`"}], ",", "3034.3244999999997`", ",", 
     "1807.4265`", ",", 
     RowBox[{"-", "864.9839999999995`"}], ",", "3168.4470000000006`", ",", 
     "4180.047`", ",", 
     RowBox[{"-", "205.05450000000042`"}]}], "}"}]}],
  SequenceForm["soptv ", CompressedData["
1:eJxTTMoPSmVkYGAwBGKF1teBO7xnO1SJrHNPPNV94NyZM2d8gHxmzi555oNL
D5xY6LqtWLfngMV9/15xk3kO7g+rRM79X+KgENN/qPR4v8ORrxox/ckTHNy2
ff47xWySQ8gOudbXZvUHrp37HtwcuMjh9s+6rD0fVjkkPL2gtFtzo8OjpbOP
LNgy0aEFaG3cpHkOP4DSW6RmO9QA7Vf8utSh7KWaYYfuQoceR6COI7Mc3gfu
kFPlX+sAcuY8gw0OT36v/HhJbr7DPf/e6XmSyx0cQPY12jtwXF9cULt2nUNJ
xsS3f/a1HegE6Vde7CATlWI9/8cMh2WzjyhscGs4sOFE2b743Klg+xJ1Zzqo
sDVOnZy82QEYFAwO85c4RFhuOVH2qt/Bh4dJm92m5YDwOveHVs+WOCyS0r/7
ZMU8hyqQ+3bNcggC2putv96hYt98qfdMsx0OlEyWYJlefwDkXRPWiQeAylWW
bVnu8AvkP9s5DhJAd9xn7z6wEGTOgRUOQGM4eEI2OHgArdu3MPMAAJEMwXY=

   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEC1mm8hc8wJtJJusmes32Yu9ciRXOVYayTnUyvHCEHK9
cDTLcrW1KCkv1F44okRNImEhLfL/FVpJs8j3++Lp8/J5ekTa9tJGPxaLpYTM
p5kjjQxDXrh2yTCoKlJLUXtcbDO6mMico5slrx93YFN6H8cFLijUoiDKkHSV
uMrrY4hm1Rg9EUiJ/6xedxpKSVK5oxU9rnhb0XEp0cS+H5nADtlb8zLYm2l/
EoZT4rk3hc2Agtl6uYJHye4vbwXVXG240YjUMg+aMvXpRWMydIHZ4DZvIBH1
GBXJ6N74mBRN+dU2ojMKVguq93ca0J/PiC00L9h6hgqsnFe0S+70oQkyN1sJ
yt+9Dfng3KBJj7pvpTbUkFvjKQBd05YPFXiQfVNfCFJ7f+UkuPkXFj8Fnm2J
M9D1pZ1OdEQS9YXarq0+lC/sGQrnQ8+jcxQ188rmUC1fu4Q+ZiodXAElbfsJ
rQ+FlFRbLrrRAJXbgMY8nLAv1fDj82LIN3iVs8aurINdWa5alH1oK64C/wEu
D905
  "]],

Cell[BoxData["\<\"Variance of Subsidies (adjusted to units of $/mile) \"\>"], \
"Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEC12Rm57gRxpI2ub6zfZi73CkqscK43kHGrleGEIuV44
GpGrrTUl5YXaCxIlahIJC2k5/r9CK2kW+X5fPH1ePk9Pgq6ttMGPxWIpIXPp
S+EmhiHPXFvqEKgqUktRW2xME7ogZs5Qe8nLxy3YmNHLcYHzcnVCEGVIhiql
0utjiGbNFDkeSIn/jEF/EkpJYpmjBT0qf1vVcynRxLwfmsH2zLemZbAny/YY
xaPEc2cOmwaFM3UyOZ+S3V/+Kqq53HSjojStB02e/PSi0RJ9oALc5veLUY9J
noTujY1K0eRfXQM6LWc1owZ/pxH9+RRtoXnBllNUaOG8oJ0ypw+Nz3SzlaDs
3VufD84OmA2o+0ZqRY251Z4C0DW18qECDxTXdYUgtfVVTID2v7C4SfB0K0WC
bizudKDDqRFfqPXK4kMFUd2DPAH0PDhH0CW+dhbVCXSL6EOW0sEVUtK6H99y
X0hJ1cp5FxqgchvR6Ptj9oUafnxaCPkGL3PW2RW1sCvbVYPuv1qLK8F/NQHe
HA==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"VMT weighted Mean, Variance of subsidies across states \"\>", 
   "\[InvisibleSpace]", "0.007301083799242316`", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.00017196339842062328`"}],
  SequenceForm[
  "VMT weighted Mean, Variance of subsidies across states ", 
   0.007301083799242316, " ", 0.00017196339842062328`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC2bbSJzvkAOyciaOX2TXezKITmVw0qz5DjUyuHCEDJz
4dDImkObRUm5UC5IlKhJJCykRf5fmVbSLPK+F0+/y+fpSVB1VrT4sVgsGWQ+
YzlCzzDklWdPGwXlpQoxao+N0aCLicwFulX+5r4HWzMHOE5wQapICKIMyZSn
1np9DFGu6qOmAinxn9Wqz0IpSao6aEdPqt8tah4lypiPYxPYlf2uWQH7c+zP
ojBKPA8mrhEUzjZJpHxK9n75FlR5veFCw9MrPWiK4dOLRmepA/PAHf5QIurR
S5PR/ckJMZryq2pBjVJWG6r1d+jQn8/wbbQw2HqOCq2cN7RH4vCh8dkutgyU
fHibi8C5YZMWdd2JbaiuoN5TDDpnzG45eJR321QCUvtgzTS49ceNM4Dn26lZ
6PrSbjc6lhb5hdpurD5UIOobCRNAz5NjHF3mV86hKoFqCX3KkR3whJR0HMa3
P5ZQUme+7EUD5C4dGv14yr5SwI8viyHf4HX+GrumEXblOhtQG3ezrBb8By5Y
3Sw=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"singlev \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`"}], "}"}]}],
  SequenceForm["singlev ", CompressedData["
1:eJxTTMoPSmVkYGAwBOI1KTsqlslMdBilB5YGACTTvT8=
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCRmh8iZCzQkm6yZ07dlF7tySIxyWGmkOQ21crgwhJwu
sEbk1FiUlAu1CxKlqUkkLKRF/l+hlTSLvO/F0+/yeXoStW1ljX4sFksOmctY
jDAxDHnh2tKGQEWxSoza4mKbUXMSc45ul75+3IFNmb0hLnBepkoMpAzJVIg0
Xh9D1KumqHEOJf4zBt1ZKCXJFXY9elL5tqLjUqKOfT+2gO2St+YlsCfb9hQd
Tonn3hI2DQpm6qUyHiX7v7wVVH214UaF6eUeNHXy04vGZOk4ueAurz8J9Zhk
KejB2KgYTf3VNqLTMlYLavB3GtGfT+EOWhBkdaACa8gr2il1+tAEiZstB6Xv
3oZCcHbAYkDdt+JN1Jhf4ykCXVPLHwrwKPemXglSW1/VBLj9FxY/CTp2RFno
+sJeBzqcFvmFbl5bfSg/unswnA89j84RdJFXPotq+doF9DFbbucKKGk9TNA/
KCmpXr7oQgMUbiMa83DKvlTBj8/m4G/wKm+NXVUHu3JcteipdKtEA/4DMGDd
cg==
  "]],

Cell[BoxData["\<\" A Versus B \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJjLnC5ZDMrK2OX2TXewKS+aQw0ojOQ61crgwhJwu
HBrRHBprSsqF2gWJEjWJhIW0yP8rtJJmTd734ul3+Tw9CZr2skYfFoslg8yn
L0cYGIa8ciypw6C8WCFCLbExzehiInOBWkvfPu/Bpoy+YAe4IFEkBFCGZMhT
Kt0ehijXDFET/pT4zuq0ZyGUJJXbWtGTineTlkOJMubj2Ah2ZL03r4C92ZZn
QRglrgdj6AzIn60XS7iU7Hu5JlR5velEw9NULlQ49eVGozO1/lJwlzuQiLoM
kmT0YHxMhAq9mkZ0RsJqQXW+dj36+xW+g+YHms9Rvjn4De0S2z1ofJaTLQPF
H+6GAnBu0KhDnXeiLVSfV+0qBB3Tq59y8Eh6W18EUku/ehK0/oXGTYHnOymZ
6MbSXic6khr5jW7dmD0oT9AzFMaDnif7KLrMVc2hGp5mCX3Kltk4fEraDuNb
H4soqVq97Eb95E49Gv14yr5SwI8vi0E/4HXuOltdB7tyHLVoac12SSX4Dy27
3SI=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.98194381265022383153350372219066799848`12.20721672444552"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.98194381265022383153350372219066799848`12.20721672444552],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJsKcLpBDayNr5vRNdrErh+RUzGqNNKehVg4XhpDT
BdYmcmosSsqFckGiRE0iYSEt8v/K1kqaRd734ul3+Tw9Ser2Co0fi8WSQeaz
FqOMDEPeOLaMYVBeqhCjtnhBC2pKZi7R7fJ31wPYLOwLdYALUkVSEGWIUJ5e
6/UxRLlqjJkIpMR/Vq89D6MkpepQh55Wf6xoOZQoBZ8nZrAj+6NlCezNsb3E
RlDieTSHz4D8WZVEyqVk/5e7gipvNpxoZGalB02bcnvROJE2MA/c5Q4kox6j
NBU9GB8To2m/ag06I2W1onp/uwH9cUfuoIXB1guUbw19R7skdh+amO1ky0DJ
p7epCJwbNOtR5714EzUU1HuKQcf0sksOHufdqUpAauuvmQS3/8ITpsCLnXQR
um7Z60RHMqK/0M1bqw/lxfYMRfCg59k+ii5yK+dQNU9tQZ9zZIccPiVtR4m6
pxJK6pavutEAudOAxj2dsa8V8OOrKeQbvMlfY9c0wq5cRwN6PbBVVgv+AzKx
3cU=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state  \"\>", "\[InvisibleSpace]", 
   "2.582259476794709`*^9"}],
  SequenceForm["Welfare from state  ", 2.582259476794709*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEC1mR2TuF8jRMrK2uX6TvdgrR3KVY6WRnEOtHC8MuXnh
aJY1R2NRUl4oL0iUqEkkrJEW+f8KraRZ5Pt98fR5+Tw9cZq2kgYfFoulgMyn
mcIMDENeuLaUIVBZqJKgtuioJnQxnrlAt4pfP+7BRnEvxwEuyFRxAZQhYmVy
pcfLEPWKIWLcnxLfWZ32LJiShLKDFvSk/M2i5VKijno/NoLtGW9Ny2BPpu1J
FEqJ+8EYMgMKZuukMh4le788C6q+XnehwtRSN5o09elBI9O1/nJwh9cfj7oN
skR0f2xUgib9ahrQGRmrGdX52vXoz6dwG80NtJ6jAivnFe2U2r1obIaLrQCl
7576PHBuwKhDXXeSDVSfU+3OBx3T5g8leCS/rSsAqa2vYhLc+guJmQLPt5PT
0bWl3Q50OCX8C924sXpRvqh7MJQPPY/2EdTEK51DNXzNEvqYqTjgCihpPYxt
cRZQUmW+7EL9lC49Guk8ZV+p4MfnxaBv8Dp7lV1RC7uyHDXohGWzqBL8BzF2
3aI=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform  \"\>", "\[InvisibleSpace]", 
   "2.5822594735393376`*^9"}],
  SequenceForm["Welfare from uniform  ", 2.5822594735393376`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmm8iZC9ZGMrJmTt9kF7tySIZyWGkkx6FWDheGkOHC
oRE5NYaScqF2QaJETSJhIS3y/8rWSppF3vfi6Xf5PD0JmrbSBh8WiyWHzKYu
hhsYhrxxLeIhUFGklKCW2JgmdD6RuUR3St6dD2BjWm+wHZyTKRMCKEPSFKJK
j5chqlVD5Lg/Jb7TOu15CCVJ5dYW9LTiY0XLpUQV83liAtszPpqWwJ5My0tU
KCXuRxNnChRM10llPEoOfnkrqOpmw4GGpZS5UaHR5UGj07X+2eAerz8RdRtk
yejh2KgEFf5qGtApGasZ1fna9OiPK2wXzQs0X6ACc/A72im1edH4DAdbDko/
PfX54MyASYc67iWbqD632l0A2ieXnQrwOPuurhCklj71BLjzx4kzghe7onR0
fWG/Ax0WR3yhm7dmL8qP6h4M5UPPs20EXeSVzaAavmYBfc6UW7kCSlqP4lue
CimpWr7qQv0UDj0a/XTGvlbCj6/zQd/gTc4aW10Lu7LsNej25VZxJfgPM5vd
7A==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "3.255371570587158`"}],
  SequenceForm["Exact  ", 3.255371570587158],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEInZEbntBXIkI2vm+k32Yq8cyVWOlUaaa6iV44Uh5Hrh
aESuNouS8kLtBYkSNYmEtUmL/H81TNIs8v2+ePq8fJ6eOGVbaaMXi8WSQuZS
l0J1DEOeOabkIVBWJBehpuioZnRByFyg2yUvb/dgU1pvoBWcl8jj/ChD0mRJ
VW4PQxRruvBxX0q8ZzSqsyBK4svNavSk4nVVxaFEEeU81oPtGa/Ny2BPpukx
IoQS14M+eBrkz9SLJVxK9n+5q6jietOBClLKXGji5LsbjUxX+WaDu9x+IerS
SRLQg7FREZr4q2xEpyWsFlTjbdGiP++CHTTP33CO8g2BL2in2OJBYzMcbCko
drob8sHZAb0GddyJjKg2t8ZVAFqnVt5k4FH2bX0hSE19lRPg9l9wzCR4vpOU
jm4s7nWgw8lhX6jxxuBBeRHdgyE86LFbRtAlbtksquQpF1F7ptTM4VPSehir
thVSUr1y2YX6yBxaNNJ2yr6Sw49PCwHf4HXOOruyDnZlWWvRj8+t4irwHzbc
3lk=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1625698863454`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1625698863454`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxTCR2ieb2AjlaG1kz12/LXuyVI7nKsdIsOYdaOYoh5Hrh
aESupn+UlBfKCxIlahIJC2mR/6/QSpo1+X5fPH1ePk9PnL6luN6Hw+GoILNp
i2EWliWvfCZlEFQXaOUoEx1lROfj2Qt0q+jt8x5skHYHOcA5pTbOn7JEqk6u
cHtYolu1SMZ4lPhOmwxnwZQklB40oSdl7ysGPiW6qI9jK9ia/m5cArsymOcI
ASWuB2vIFCierlUohZTseYUrqO56w4mGppa40KSJLzcaKTPwssAdYW886rIo
E9H90RE5muTV16NTSk4javK1m9Hfr9BtNDfAdo6KbUFvaLvC7kFj051cFaj4
cNflgTN9VhPqvJNvouacKlc+6Jhc/lSDR1m3tRqQMj3l4+DWX0jMBHi+nSxD
1xd229ChlPBvdPPG5kFFEZ0DAhH0PNmH0UVhyQyqF+kX0KcM1QFfTEnzYWzT
o4aSyuXLDtRP7TSjkY+n3Cst/PgyH/gDXmevcctrYFemoxrtlzCFFeA/LXvd
Eg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Subsidy first state \"\>", "\[InvisibleSpace]", 
   "1746.9300000000003`"}],
  SequenceForm["Optimal Subsidy first state ", 1746.9300000000003`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmh8iZC9ZGMrJmTt9kF7tySE7lsNJIjkOtHC4MIcOF
QyNyavpHSblQuyAhUZMmYSEt8v8KraRZ5H0vnn6Xz9MTr2srafDhcDgqyGzK
YpiJZckLn5ENgepCjRxlYqKb0PkE9gLdKn79uAMbU3uDneCcUhMfQFmSqpZW
erws0a6aIsb9KfGdNujPQihJLLO1oMflbyt6PiXa6PcjC9ie/ta0BPZkME+R
oZS47y28KVA0XadQCijZ+xWsoFrHhgsVJ5e6UYn504NGpen9s8AdQX8C6jYp
k9D9sVE5KvnVNaBTSk4zavC1G9GfT/E2mhtoPUdF1uBXtFNh96Jx6S6uClS8
e+rzwJkBiwF13co3UWNOtTsfdE4uf6jBw6ybugKQMn0VE+DWHy/WDJ5vS9PQ
9YXdDnRYFv6Fbl5bvagwsnswVAg9j/YRdFFQOoPqhLoF9DFDZeOLKGk9iGt5
KKCkavmyC/VTu4xo1MMJ90oDPz7PB32Djuw1bkUt7Mp01qCn2UxRJfgPMJHd
eQ==
  "]],

Cell[BoxData["\<\" A Versus C \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmh4g5XiCHZGTNnL7JLnbHklM5rDRLjkOtHC4MIcyF
QyNyaqwpKRdqFyRK1KRJWCMt8v8KraRZk/e9ePpdPk9PkrqzsiWAxWLJIAtZ
K1EGhiGvXEvGKCgvV4hRS3ycFl1KZq5Qa8Xb5wPYmj0Q7gQXpYqkEMqQbHl6
rdfHEOWGIWYqmJLAOZ3mIoKSlCpbO3pW/b6u4VKijPs4NYFdue/aVbA/z/Ic
G0mJ59HEMYKCuSaJlEfJoZ+3jiod225UmKnyoGkzX15UlKMJLgD3eUPJqMcg
TUWPJifEaJpf3YIapaw2VBdo16O/X8I9tDjUfIkKzOFvaI/E7kMTc91sGSj5
8DaXgPPDJh3qvhfvoPqiek8p6Jxd+5SDJwV3TWUgtQzWTIPWP07CDHi5l56D
bi0fdKNjGdHf6M6t2YfyY/tGIvnQ82QfR1d4qnlUzVcvo095MhtXQEnHcWK7
q4ySurXrXjRI7tajItc5+0YBP74shf2AjsJNdk0j7Mp3NqDP/N2KWvAfMDnd
aQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.9819438138355164118339305550716899917`12.207216752949122"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.9819438138355164118339305550716899917`12.207216752949122],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAjm0jKxtTt9fdrE7JKdiVpqlOQ21crgwhJwu
HBqRU2NRUi6UCxIlahIJa5MW+X+FVtKsyftePP0un6cnSdNW3uTH4XAUkLms
pUgTy5JXnjVjCGRKlRLUGh+nQxeS2St0p+zt8xFsFveG2sF5mTIpiLJEzKTX
eLwsUa2ZoscDKfGfMWgvwihJqTzSo2dV76taHiWquI9TM9ie865bBntyrc8x
EZS4n8zh06BwRi2V8Sk58PFXUdXtpgsVZVa40bTJLw8am60NlIN7/P5k1G2S
paKHY6MSNM2naUKnZZwW1OBvM6K/X6JdtDDYcokKLaFvaKfU5kUTc1xcBSj9
8DQWgbMDZgPqepBsocaCOncxaJ9a+WTAE/m9ugSk1r7qCXDnLzxhErzcTc9G
Nxb3O9DhjKhvdOvO4kUFMd2DEQLocdpG0CV+xSyqEWgWUWeu4ognpKT1OFHv
KKGkduW6Cw1gXEY01nHOvVHCjy8LIT/gbf46t7oBduXZ69E1+XZZDfgPL1rd
Ug==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county full \"\>", "\[InvisibleSpace]", 
   "2.5822594774154334`*^9"}],
  SequenceForm["Welfare from county full ", 2.5822594774154334`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmgjUkI2vm9E12sTskG8WsNJLjUCuHC0PI6cKh
ETk1FiXlQu2CRGlq0iS2kBb5f4VW0qzJ+148/S6fpydF21HZFMBisWSQhayV
aCPDkFeOJWMElJcrxKglMaEFXUplrtC9irfPB7A5uz/cBS5KFSkhlCHZcpHa
62OIcsMYOxlMSeCcXncZQUlatbUNPa95X9dxKFEmfJyZwM7c95ZVsC/P8hwX
RYnHaYqcBflzGomUS8mRn7uOKh3bblSQWeVBhdNfXjQ+RxdcAB5wB1NRj1Ga
jh5PjItRoV/bhM5KWa2oPtBuQH+/BPtocajZhvLN4W9ot8TuQ5Nz3WwZKPnw
NpaA80MmPeq+F++ghqI6Tynomln7lIOnBXeaMpBaBlRT4N5fZNI0aNsX5aBb
y4dd6GhGzDe6c2v2oby43uEoHvQ82cfQFW7VPKrlaZfRpzyZlcOnpP0kue2x
jJLateseNEjuNqDxjxfsGwX8+LIU9gM6CjfZqgbYle+qR50NuxVq8B8yJd2w

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259473539612`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259473539612*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC1mh4g5XiCHlpE1c/omu9gdklM5rNZIcxpq5VSGkNMF
1iZyaixKyoVyQaJETSJhmbQs/6/QSppF3vfi6Xf5PD0J6rYyjR+LxZJD5jMW
I4wMQ165trRhUFGilKC22Jhm1JTIXKLbpe6PB7BJ3MtxgAsyZUIQZYhYkVrt
9TFEtWqMmgikxH9Wrz0PpSSp4lCHnla+rWi5lKhi3k/MYHvWW/MS2JNte44O
p8TzaA6bAQWzDVIZj5L9X94KqrrZcKHC9HIPmjL16UVFmdrAXHCX15+Ieoyy
ZPRgfEyCpvyqNeiMjNWC6v3tBvTnU7iDFgRbL1CBleNGO6V2Hxqf5WLLQem7
t7EQnBsw61HXvWQTNeTXeopAx/TyhwI8zr1rKAapra9qEtz+C4ubAi92UjPR
dcteBzqSFvmFbt5afSg/unsonA89Tvsousgrn0PVfLUFdWbLD7kCSlqP4nVP
xZTULF91oQEKlwEVPZ2xr5Xw44sp5Bu8yVtjV9XDrhxHHTpo3CqtBv8BMFDd
eg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "3.875821590423584`"}],
  SequenceForm["Exact  ", 3.875821590423584],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIcKcLpBDMrJmTt+WXewOyakcVhppTkOtHC4MIcOF
Q5vIqbEoKRdqFyRK1KRJWJu0yP8r00qaRd734ul3+Tw9yaquytYAFoslhSxm
r0TrGYa8ciyZY6CsXCFCLQnCdnQ5hblG9yrePI9gW85guANckiiSQyhDcmQZ
dT4/Q5Qb+tjpYEoC57XqywhKUqutGvS85n1dzaFEKfw4M4Ldee/tq+BAvuU5
LooS75Mxcg7kzzeLJVxKjn6566jSvu1GBVlVXjTd8OlD43PVwYXgAXc4BfXq
JWno8dSkCE3/VbWicxJWB6oNtOnQn0/BPloSar5C+ebwN7RXbPOjSXluthQU
f/haSsGFEaMWdT+IdlBdcYO3DHTMrnlk4GnhfbMcpJah2hlw7y8y0QBe7Wfk
olumwx50PDPmC925M/tRXlz/aBQPely2CXSFW7WAqngqE+rKl1o5fEo6T5I0
Tjkl9Ws3fWiQzK1D450X7FsF/PiyHPYN2os22bVNsKvA0Yjydncr6sB/Levd
Mg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1632723405428`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1632723405428`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvA/C5GYHSLnuUAOLSNrm9O3ZRe7Q3Iqh5VGchxq5XBhCDld
YI3IqbEoKRdqFyRKaBIJC2mR/1doJc2avO/F0+/yeXpE2tbieh+GYRSQ2fSF
cCPLkleuNXUQVBaqJag1NqYRNSWw5+hW0dvnPdgg7gl2gHMytSiAskSsTKlw
e1iiWTFGjvlT4jut152GUJJYamtGj8vel3VcSjQxH0dmsC3zvXER7M6yPkeF
UeJ6MIdOgYLpWqmMR8mel7eMaq7XnagwrcSFJk98udHoDJ2/HNzh9SWgLqMs
Cd0fHZGgyV5tPTolY5pQva/dgP5+CbfRvEDLGSqwBL+hHVK7B43PdHIUoPTD
XZcPzvSb9ajzTrKBGnKrXAWgY3LpUwkeym9rVSC19paPg1t/oXET4Nl2Sga6
Nr/bjg6lRnyjGzcWD8qP6hoI40PPk30YXeCVzKBavnYefcpS2LgCSloO4psf
VZRULl12on5KpwGNfjzhXKnhxxdT0A94nbPKKa+BXdmOalR+sVlUAf4DMB/d
fQ==
  "]],

Cell[BoxData["\<\" A Versus D \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCRmmwhzukAOySZr5vRt2cXukJzKYbVGchxq5XBhCDld
YI3IqWkRKRdqFyRKU5MmYSEt8v9q00qaRd734ul3+Tw9yerOCk0Ai8WSQRaz
V6INDEPeuJbMUVBephShlgRhK2pMYa7Q3fJ3zwPYkjMQ5gSXpMrkYMqQHHlG
rc/PENWGIXaKQ0ngvE57GU5JapW1HT2v/ljXcilRCd1nJrBL/NG6CvbnWV7i
IinxPpoi5kDBfJNEyqPk6Je3jqoc2y40KqvSi6bPfPrQ+FwtpwA84A2loF6D
NA09npwQoem/ag06J2W1obpAux79+YzaQ4tDzDZUYA57R3skdj+aJHaxZaDE
7WsuAReGTTrUdS/aQfVF9d5S0Dm75pGDpwV3TQqQWgZrpsHdv4jEGdC2l5GL
bi0fdqNjmTFf6M6t2Y/y4/pGIvnQ82wfR1d4lQuomq9eRp/zZFaugJKOk6T2
JwUldWvXvWiQ3KVH458u2DdK+PHVGPoNOgo32TWNsCvf2YBeDe6X14L/MqPd
xQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.98194381265022383153350372219066799848`12.20721672444552"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.98194381265022383153350372219066799848`12.20721672444552],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJsKYXSCHZFvWzOmb7GJ3SE7FrDSS41ArhwtDyOnC
oRE5Nf0jUi7ULkiUqEmTsJAW+X/FWkmzyPtePP0un6cnUd9W2uDH4XBUkLmM
pSgzy5JXHpM2BKqLNVKUiRc1oQsS9hLdLnn7vAcbM3tDneC8UpMYRFmSqU6t
8vpYol0zx4wHUuI/YzSch1GSVG5rQU8r3lcNPEq0oo8TC9gue29aBnvkzHNs
BCWeB0v4NCic0SmUfEoOfvmrqNax6UIj08s8aMqk24vGZRkCc8A9fr8E9ZiV
yejh2KgUTfnVN6DTSk4zavS3m9Afd+QOmh9svUCF1tA3tFNh96FimYurAhUf
3voCcHbAYkRdd9It1JRX4ykEnVMrn2rwOOdWVwRSpq9yAtz+C0+YBC92UrPQ
jcX9DnQ4LfoL3bqx+lBBbPdghAB6nuwj6BK/bBbVC/SL6JNcZeMJKWk9Erc8
FlFSvXLVhQaoXSY07vGMe62BH18WQr5BR+46t7IOdmU7a9Hozd2SKvAfLhvd
OQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state native \"\>", "\[InvisibleSpace]", 
   "2.582259472354334`*^9"}],
  SequenceForm["Welfare from state native ", 2.582259472354334*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmm4g5XiCHtJG1zemb7GJ3SE7lsNIszWmolcOFIYS5
cGhETk2LSLlQuyBRspo0CQtpkf9XppU0i7zvxdPv8nl6ktUdFS0BLBZLDpnP
Xo42Mgx55VozR0BFmVKMWhPitehiCmNHd8rfPPdga05/uAtckCqTQyhDchQZ
tT4/Q1TrxtjJYEoCZ/WaiwhKUqtsOvSs+n1Nw6VEFf9xagY7c9+1K2BfnvU5
LpIS74OZYwIFs00SKY+Sw1/eGqpybrnRqKxKL5o+/elDhSJNsAzc5w2moF6j
NA09mhgXo+m/6hbUJGW1ofpAhwH9+YzaRYtCLZeowBL+hnZLHH40KdfNloOS
D19zMTg3ZNaj7jvxNmoorPeWgK6ZVY8CPJHdNpWC1DpQMwXu/HESp8HL3QwR
url00IWOZsZ8ods3Fj/Kj+sdjuRDz5NjDF3mVc6har56CX3Kk9u4Akraj5N0
j6WU1K1e9aBBCrcBFT6es6+V8OPLYtg36CzYYNc0wq58VwMqsO+V14L/Lwzd
XA==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full \"\>", "\[InvisibleSpace]", 
   "2.5822594735393376`*^9"}],
  SequenceForm["Welfare from uniform full ", 2.5822594735393376`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmh8iZC+TQMrJmTt9kF7tDcipmtWZpTkOtHC4MIcOF
QyNyalpEyoVyQaJETSJhjbTI/ytbK2kWed+Lp9/l8/Qkq9srNQEsFksGmcte
ijIxDHnj2jKHQXm5QozaEuJ16EIKc4VuV7y7H8EWUV+4A5yXKpJDKENE8ow6
n58hyjVTzEQwJYEzBu1FBCWp1Ud69KzmY1XLpUQZ/3lqATtyP3TLYG+e7SU2
khLvk4UzDQpmVBIpj5KDX94qqrzddKHCrCovmm72+NC4HG1wAbjHG0hBvSZp
Gno4PiZG03/VGnRaympFDYF2I/rjEe6gxaHWS1RgDX9HuyR2P5qU62LLQMmn
r7kEnB20GFDXg3gLNRY1eEtBx9SKWw6eFNyrykBq66+dBLf/OIlm8HInIwfd
WNzvREcyo7/QrTurH+XH9gxF8qHn2T6KLvGqZlE1X72IPufJjrgCStqOk/TO
MkrqV6670SC5y4jGOc/ZNwr48XUh7Bu8LVxn1zbBrnxHI9rn2a2oA/8BM0jd
6A==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare from State native - Welfare from uniform full  \
\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "1.1850037574768066`"}]}],
  SequenceForm[
  "Exact: Welfare from State native - Welfare from uniform full  ", \
-1.1850037574768066`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAjkkI2vm9E12sTuWnIpZrZHmNNTKIRlC2C4c
GpFT05qScqF2QaJETZqEhbTI/yvTSppF3vfi6Xf5PD0pqs5qdQCLxZJAFnJW
og0MQ1451qwxUFopE6LWxIQ2dCmVuURtVW+ee7A1dyDcBS6KZSkhlCG50sx6
n58h8g1D7HQwJYEmneY8gpK0GrsWPa19X9dwKJEnfJyYwa7897ZVsL/A+hwX
RYn3wRxpBPkmpUjMpeTgl7uOyp3bblSQrfCiGbOfPjQ+TxNcBO5xh1JRr0Gc
jh5OTQrRjF+VGjWKWe2oLtChR38+BbtoaajlAuVbwt/QHpHDjybnu9kSUPTh
aykD54fNOtR9J9xB9SWN3nLQNbfmkYLHRbfKCpBaB+tmQNtfZNIseLGbmYdu
Le93o+NZMV/ozo3Fj/Li+kajeNDz5JhAV7iKeVTFUy2jTwUSO4dPScdRsvax
gpKGtateNEjq1qPxj2fsaxn8+LIU9g06izfZdc2wq9DVhI7w96rqwX8tct0S

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1625698863454`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1625698863454`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJjLnC9aQjMzM6ZvsYndIjHJYaSTHoVYOF4YQ5sKh
ETm1taakXKhdkChRkyZhIS3a/yvWSppF3vfi6Xf5PD0p6u6q1gAWiyWDLGWt
xegZhrxxLBnjoLxCIUYtiQnt6Eoqc4VaK98/H8C27KFwJ7gsVaSEUIZky0Uq
n58hyi193EwwJYELWs1FBCVpNbZO9KzWvanhUKJM+Dg1gj257vZ1cDDP8iKI
osT7aIw0gPyFZomUS8nhL3cTVTp2XWh0ZrUXFc55fGh8jia4ENznjqSiXr00
HT2anhKjwl91K2qQsjpQbaBdh/54ovfQklDTJco3hb+jfRK7H03OdbFloOTD
11IKLo4atajrXmxGdcUN3jLQOb/xKQdPCu+ay0FqGa6bBa1/kUlz4OWeKAfd
WT3oRScyYr9Q863Jj/IEA2NRPOh5tk+ia9zqRVTNU6+iz3kyG4dPSddxcudT
OSX1G9f9aJDcpUPjn87ZNwr48XUl7Bt0FG2z65pgV76zET0t2K9Ugf8wft14

  "]],

Cell[BoxData["\<\" A Versus E \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxkEM220TOdsFyaBlZM6dvsovdsWQoh5VGchxq5XBhCDld
YI3IqWlRUpJyQaI0NYmclkmL/L9CK2kWed+Lp9/l8/QkaltL631YLJYcMpu+
EGFkGPLCtaYOgopipQS1xsU2oiYhc45ulrx+3IMN4p4QBzgnUyYGUIaIFSkV
Hi9DVCvGqDF/Snyn9bqzUEqSyg6a0ZPyt2UdlxJV7PuxGWzLfGtcBLuzrE/R
YZS4H8ycKVAwXSuV8SjZ/eUto6qrdRcanqZ2o6KJTw8ak6HzzwG3eX1C1G2U
JaP7oyMSVPSrrUenZKwmVO9rN6A/n+FbaH6gxYYKLCGvaIfU7kUTMl1sOSh9
99QVgDP9Zj3qupNsoIa8Knch6Jhc+lCARzk3tUUgtfZqxsHNP078BGjbSslA
1+Z32tGh1MgvdOPa4kX50V0DYXzocdqH0QWeegbV8rXzqDNLfsAVUNJymND8
WERJ5dJFJ+qncBnQmMdT9qUSfnw2BX2DV7mrbE0N7Mp2VKO3wXulFeA/MBrd
aA==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.9819438138355164118339305550716899917`12.207216752949122"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.9819438138355164118339305550716899917`12.207216752949122],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXIcF8ghbWRtc/omu9gdklMxK43kONTK4cIQctiF
Q7OsOTQtSkpSLkiUqEkkLKRF/l+xVtKsyftePP0un6cnWdNZ0RzAYrHkkIVs
c7SBYcgbx545CirKlGLUnpjQii6lMJfoVvn71wPYkjMQ7gQXpcrkEMqQHEVG
rdfHENWqIXYqmJJAo057HkFJatVhO3pa/WHVcihRJXyemMCu3I/WFbA/z/4S
F0WJ59EUOQfyjWqJlEvJnp9rRVU3Gy5UkFXpQdNn3F40XqQNloE73KEU1GOQ
pqEHkxNiNN2vaUbnpKw2VBfo0KO/bsE2WhRqu0D5tvB3tEfi8KHCXBdbDko+
vU3F4PywSYe67sWbqL6w3lMCOmctXwrwWHanLgWpfbBmGtz6i0yaAS+2M0To
+vJuNzqWGfONbt7afCgvrm8kigc9z45x1MytnEc1PM0y+pwnP+TwKek4ErY/
lVJSZ7nqRYMULj0a/3TGvlbCj69LYT/gTcEau6YRduU7G9A32X5FLfgPMdPd
pQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare county native - welfare uniform full  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "0.6886477470397949`"}]}],
  SequenceForm[
  "Exact: Welfare county native - welfare uniform full  ", \
-0.6886477470397949],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJnIcF8gxI2vm9P1lF7szyUY5rDSS41ArhwtDyOkC
a2TNoWlNSUnKBYkSNYmEhbTI/yu0kmaR9714+l0+T0+Cpl3Z6MPhcGSQ+Yyl
CAPLkheeLW0YZMrkYtQWF9uMGhPZc9Re/vpxBzZl9QU7wQWpPCGAsiSLSVV7
vCxRrBiiJvwp8Z3VaU9DKEmq3G9Fj6veLFoeJYrY9yMT2JHz1rwM9ubanqLD
KHHfm0JnQOFsvUTKp2Tnl29BFVfrLjQ8vcKNpkx9etCYbK1/PrjFH0hE3QZp
Mro3PiZGU341jeiMlNOC6nwdevTnM3wTLQq0nqFCa/Ar2iVxeFFRjosrAyXv
noZicG7QpENdt+INVF9Y4y4BndPmDwY8zL+pLwWprV81Cdr/QuOnwLPN1Gx0
bXG7Ex1Ji/xCN66tXlQQ3TMUJoCeR8cousSvmEM1As0i+pgr2+cJKWk7ELU+
lFJSbb7oRv0Ylx6NeTjhXsrhx2dj0Dd4VbDKVdXBrjxnLZrZtKtUg/8tVd0b

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county native \"\>", "\[InvisibleSpace]", 
   "2.582259472850964`*^9"}],
  SequenceForm["Welfare from county native ", 2.582259472850964*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQrSYbSJnLpBDMrJmTt9kF7tDMhSz0kiOQ60cLgwhTHJo
RE5Ni5KSlAsSJWrSJKxNWuT/1ayVNIu878XT7/J5ehLVHRVNfiwWSwpZyFyJ
0DMMeeOZ00dAWZlchJrjYlvQpSTmBt0tf/98Apuz+rk2cFEiTwykDMmSpdV4
fQxRbOijJgMoYc9qNVchlCRXnbShF9Uf6xoeJYpY17kR7Mz5aFkF+3LNL9Fh
lHiejaEGUDirEkv4lBz+8tdRhXXbiYZnVHrQ1Gm3F43J1gTkg/v8wSTUo5ek
oMcT4yI09VfdhBokrFZUy7bo0B93+B5aFGS6RoUm7jvaLbb40IQcJ0cKil3e
xmJwfsioRZ2Poh1UV1jnKQFtM2ufMvAs/0FVClLzgHIK3P0LjZ8Gr/fSstGt
5YMudDQ98gvduTf5UEF073CYAHocljF0hV85j6oF6mXUkSs94QkpaT9NaLOX
UlK7dtuD+sucOjTGfsm5k8OPr0vB36C1YJOjbIBdebZ61Dt3VFED/gM02t4R

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.582259473539612`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.582259473539612*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEInZEbl5gRwtI2vm+k32Yu+QXOVYaZacQ60cLwwh1wtH
2yJX06KkJLUXjihRk0hYIy1r/5/QSppFvt8XT5+Xz9OToGwva/JhsVhSyHyG
MVzHMOSVY04bBmUlchFqjo1Ro4uJzCW6Ver8eACbhX3BNnBBIk8IoAwRylKr
PV6GKFZ1kRP+lPjOalTnIZQkVVha0dNK14qKQ4ki5v1ED3ZkudRLYG+2+Tkq
jBL3oz50BuTPNoglXEr2frkrqOJmw4EK0svdaMrUpweNzlT554I73IFE1K2T
JKMH42MiNOVX2YTOSFgtqMbXqkV/PgXbaEGg6QLlm4KdaJfY6kXjsxxsKSh+
9zQWgnODeg3quBdtotr8WncRaJte/pCBR7l3DcUgNfdXTYJbf6FxU+DFdmom
um7Y7URH0iK+0M1bkxflRfUMhfGg58k6ihq55XOokqc0oE/ZUguHT0nbYXyr
vZiSmuWrbtRP5tCi0fYz9rUcfnxZDPoGb/LW2FX1sCvHVoe+He+XVYP/Nbve
Mw==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1632723405428`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1632723405428`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvDZQiSbHSJnLpBDayNr5vRNdrE7JEY5rDSS41ArhwtDCHPh
0IicmhYlJaldkCiHmkTCQlq0/1emlTSLvO/F0+/yeXoStG2lDX4sFksBmc1Y
DDcyDHnjWdOGQGWxSopaY2Oa0PlE5hLdKnl3P4CN4t4QBzgnVyUEUoaIlaka
r48h6lVj5HgAJexpve4slJKkclsLelLhWtHxKFHHfBybwfZMV9MS2JNlfYkK
o8TzaOaaQOF0nUzOp2Tvl7+Cqm82nKgovcyDpkx+etFoiS4gB9zh9yeiHqM8
GT0YG5WiKb/aBtQkZzWjerbdgP58irbR/CDLBSq0hLyjnTK7D43PdHIUoOzD
W18AzgyY9ajzXrqJGvKqPYWgY2rZrQSPcu7qikBq7aucALf+uHGT4MV2qgRd
X9jtQIfTIr7QzVuLDxVEdQ+GCaDn2T6CLvLLZlCtQLuAPmcpbDwhJa2H8S1P
RZRULV91of5KpwGNfjrlXKvgx9f54G/wJneNU1kLu7IdNei5e79UA/4DNebe
Pg==
  "]],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCRmm8gMc8FySGZZM6dvsovdITHKYaWRHIdaOVwYQsYu
hkbk1LQoKUW5IFGiJpGwkBb5f8VaSbPI+148/S6fp0esay9rDGCxWErITMZC
tIlhyCvXkTYMqkrUUtQRL2pG55KYC3Sz9O3zHmzK7AtzgbMKtTiYMiRTlar1
+RmiWTHFTnAoCbQY9GfhlCRXHLSiJ5Xvy3ouJRrRx7EN7Mh+b14Ee2WOZ2Ek
Jd4HW8Q0KLDUyxU8SnZ/ecuo5nrdjUall3tRidnjQ+Oy9JxccJs3kIR6TYoU
dH98TIpKfnWN6LSC1YIaAp1G9McTtYUWhNjPUYE97A3tkjv9aGK2m60E5R++
hkLQOmgzoO476QZqzK/xFoGuqaVPFXiUe1tfDFJHf9UkuPkXkWAGz7dSs9C1
+Z1OdCQt5gvduLH7Ub6wZyiSDz1PzlF0gVduRXV83Tz6JFMecAWUtB0mtj4W
U1K9dNmNBqncRjTu8ZR9pYYfX+ZCv8HrvFV2VR3synHVohLhXpkW/AcrENzJ

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for mu \"\>", "\[InvisibleSpace]", 
   "10037.279770879111`"}],
  SequenceForm["Value for mu ", 10037.279770879111`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJnLmguWQNrK2OX2TXewOiVEOK400p6FWDheGkNOF
QyNyavpHSSlqFyRK1CQSFtKy9v/KtJJmkfe9ePpdPk9Psra9vMmPw+EoIPNZ
y1EmliXvPCZjGFSWqiQokxDfgi6msFfoTpnT/Qg2Z/eF2sEFmSo5iLIkW5mu
8fpYol43xUwEUuI/a9BdhFGSWmnVo2dVrjUdjxJ1/MepGezIcbWsgL25zGts
BCWeJ3P4DCicbZDK+JQc/PLXUPXtlgONzKzwoKKpTy8aJ9YFysE9/kAK6jHJ
0tCj8TEJKvrVNqEzMk4ravC3GdGfz8hdtDDYcokKLaFOtEtq86FJOQ6uApR+
eBuLwLlBswF1PEi2UWNBracYtE+vupXgify+oQSkTH/1JLjzF544BV7upovR
zaX9TnQkI/oL3b6z+FBBbM9QhAB6Xmyj6DK/Yg7VCrRL6EuuwsoTUtJ2nKR/
LqGkZvW6Gw1QOoxo3PM590YFP74thnyDt/kb3Op62JVnr0MZ1WG5BvwHME3d
dg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Value for A \"\>", "\[InvisibleSpace]", 
   "1.688967313033398`*^9"}],
  SequenceForm["Value for A ", 1.688967313033398*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC1mm8iZC7TRMrJmTt9kF7tDciqHlUZyHGrlcGEIOezC
oRE5NS1KSlG7IFGamjQJa6RF/l+xVtKsyftePP0un6cnRd1V0RLAYrHkkMWs
1Wg9w5A3rlk0BirKlBLUnJjQhi6nMtfoXvn71yPYKh7kOMAlmTIlhDJErBDW
en0MUW3qY6eDKQk0aDVX4ZSkVVk60Ivqjw0NlxJVwue5EezO+WhbAwdyzS9x
kZR4nowR86DA0CSV8Sg58vM2UJV9x4VGZVZ60IxZtxeNz9YE54MHvOFU1KOX
paMnU5MSNMOvbkHnZax2VBto06G/7qh9tCjUZEUFJs472iu1+dDkHBdbDko/
vc3F4MKIUYu6HiS7qK6w3lMCOubWvxTgWf59UylIzUM1M+DeX0TSLGjdF2aj
2yuHPei4KOYb3b0z+VB+XP9oJB96nm0T6CqvcgFV89Ur6HOu3MIVUNJ5mtzh
LKWkbv2mDw1SuHRovPOSfauEH1+Xw35Ae8EWu6YRduU5GtAz7XFFLfgPMkDd
ug==
  "]],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJnK2C9aQNrJmTt9kF7tDciqHlUZyHGrlcGEIOV04
NKI5tPWPklLULkiU0CQSFtKi/b9CK2kWed+Lp9/l8/QkattKGnw4HI4SMpe2
FGFkWfLKY1KGQFWRWoYycbFN6IKIPUc3i98+7sHG9N5gBzivUCcGUJakqySV
Hi9LNKvGqHF/Snxn9LrTEEqSymwt6HG5y6zjUaKJfT8yge0ZrqZlsCeTeY4O
o8T9YAqdBoUzdXIFn5LdX74Z1VxvONHw1FI3Kp789KAxUp1/NrjN7xehbqMi
Gd0fG5Wh4l9tAzqt4DSjel+7Af35DN9C8wItZ6jQEvyGdsrtXjQhw8lVgvJ3
T30+ODtg0qPOO5kVNeRWuwtAx9TKhwo8zL6tKwQp01cxAW7+hcZPgmdbEim6
vrjTgQ6nRH6h1huLFxVEdw+GCaDnyT6CLvFLZ1GtQLuIPmUqbTwhJa0HCS2P
hZRUrVx2oX4qpwGNeTzhXqnhx5eFoG/wOmeNW1ELu7IcNeiFea+kEvwHM+Ld
9A==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"gv\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`"}], "}"}]}],
  SequenceForm["gv", CompressedData["
1:eJxTTMoPSmVkYGAwZICABn8mx1F6YGkA4Aw2Tg==
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEIn5b4scxwUykpE1c/q27GJ3SE7FrDSS41ArhwtDyOnC
oW05a1qUlAu1CxKlqUkkLKRF/l+hlTSLvO/F0+/yeXoSte1ljX4cDkcOmc+w
RBpZlrzwbOJhUFGikqC2+LhmdDGJPUe3S18/7sCmzL5QF7ggUyUGUZZkKtKq
vT6WqNeM0ROBlPjP6nVnYZQkV9hb0ZPKt1UdjxJ13PuxCezIfmteAntzbE8x
EZR47k3hM6BgViOVMZTs/zKrqPpq040K08s9aOrUpxeNzdIF5oG7zEAS6jHK
UtCD8TEJmvqrbURnZJwWVO/vNKA/n8IdtDDY6kAF1tBXtEvq9KGibDdXDkrf
vQ1F4NygSY+6byVbqKGg1lMMuqaXPxTgUd6NRglSW3/VJLj9F54wBTp20rLQ
DfNeJzoijvpCt66tPpQf0zMUwYeeR+coamHK51AtX2tGH3Pkdp6AkrZDUeuD
kpKa5YtuNEDhNqCxD6fcSxX8+LwY8g1e5a9zq+phV66rDmVWDsqqwX8uCd05

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"eev\"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`", ",", "150000.`", ",", "150000.`", ",", "150000.`", ",", 
     "150000.`"}], "}"}]}],
  SequenceForm["eev", CompressedData["
1:eJxTTMoPSmVkYGAwZICABn8mx1F6YGkA4Aw2Tg==
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC1mh4g57QINaSNr5vRNdrE7k5zKYaWR5jTUyuHCEHK6
cGhETk2LknKxckGiNDVEwkJatP9XaCXNIu978fS7fJ6eJF2btjGAxWIpIXMZ
S1FmhiGvXFvaEKgqUctQW3xcM7ogZs7R7dK3j3uwKbOX4wLnFeqkEMqQTJWk
yudniGbNHDMeTEngjFF/Fk5JcvmBAT2p8KzquZRo4t6PLWB7lqd5GezJtj3H
RlLifbBETIOCmXq5gkfJ/i9vFdVcb7pRYXqZF02d/PShIqk+OBfc5fWLUa9Z
kYLax0ZlaOqvrhGdVrBaUGOg04T+fAp30IJQqwMVWDlvaKfc6UcTs9xsJSh/
9zUUgrMDFiPqvpNtoab8Gm8R6Jpa+VCBR7m39cUgtfVVToDbfxEJk6BjRyJF
Nxb3OtDhtOgvdOvG6kf5sd2DkXzoeXKOoEu8sllUx9ctok/ZygOugJLWw0TD
YzEl1SsXXWiQym1CRY+n7Cs1/PiyEPYNXuetsyvrYFeOqxa1X9q1VeA/NJje
EQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"soptv \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"1746.9300000000003`", ",", 
     RowBox[{"-", "889.2974999999999`"}], ",", "1746.8250000000003`", ",", 
     RowBox[{"-", "2784.5061`"}], ",", 
     RowBox[{"-", "901.6814999999997`"}], ",", "1933.0229999999992`", ",", 
     "2687.9024999999997`", ",", "1016.932499999999`", ",", 
     "1048.8900000000003`", ",", "1165.6455`", ",", 
     RowBox[{"-", "499.4325000000001`"}], ",", "2344.7564999999986`", ",", 
     "3448.368`", ",", "4393.731`", ",", "1133.1569999999997`", ",", 
     "1956.5924999999997`", ",", "1734.6764999999996`", ",", 
     "2810.5650000000005`", ",", "2198.7659999999987`", ",", 
     "1713.2040000000006`", ",", "3719.5725000000016`", ",", "4144.62`", ",", 
     "1991.7059999999992`", ",", "2956.7159999999994`", ",", 
     "31.507499999999936`", ",", "3926.744999999999`", ",", 
     RowBox[{"-", "727.8735000000001`"}], ",", "2449.908`", ",", 
     "1598.1554999999998`", ",", 
     RowBox[{"-", "520.836`"}], ",", "1371.343499999999`", ",", 
     "1611.3450000000003`", ",", "4963.576499999999`", ",", "2639.625`", ",", 
     "1021.308`", ",", 
     RowBox[{"-", "647.5035000000003`"}], ",", "2675.1149999999993`", ",", 
     "1962.2235000000005`", ",", "1710.6330000000003`", ",", "3991.71`", ",", 
     "1728.7335000000003`", ",", 
     RowBox[{"-", "505.4385000000002`"}], ",", 
     RowBox[{"-", "1089.3014999999998`"}], ",", "3034.3244999999997`", ",", 
     "1807.4265`", ",", 
     RowBox[{"-", "864.9839999999995`"}], ",", "3168.4470000000006`", ",", 
     "4180.047`", ",", 
     RowBox[{"-", "205.05450000000042`"}]}], "}"}]}],
  SequenceForm["soptv ", CompressedData["
1:eJxTTMoPSmVkYGAwBGKF1teBO7xnO1SJrHNPPNV94NyZM2d8gHxmzi555oNL
D5xY6LqtWLfngMV9/15xk3kO7g+rRM79X+KgENN/qPR4v8ORrxox/ckTHNy2
ff47xWySQ8gOudbXZvUHrp37HtwcuMjh9s+6rD0fVjkkPL2gtFtzo8OjpbOP
LNgy0aEFaG3cpHkOP4DSW6RmO9QA7Vf8utSh7KWaYYfuQoceR6COI7Mc3gfu
kFPlX+sAcuY8gw0OT36v/HhJbr7DPf/e6XmSyx0cQPY12jtwXF9cULt2nUNJ
xsS3f/a1HegE6Vde7CATlWI9/8cMh2WzjyhscGs4sOFE2b743Klg+xJ1Zzqo
sDVOnZy82QEYFAwO85c4RFhuOVH2qt/Bh4dJm92m5YDwOveHVs+WOCyS0r/7
ZMU8hyqQ+3bNcggC2putv96hYt98qfdMsx0OlEyWYJlefwDkXRPWiQeAylWW
bVnu8AvkP9s5DhJAd9xn7z6wEGTOgRUOQGM4eEI2OHgArdu3MPMAAJEMwXY=

   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAg1pI2vm9E12sTskRjms1iw5DrVyuDCEHHYx
NCKnpkVJuVBTJErUpElYSMvy/wqtpFnkfS+efpfP05Oi7qjUBLBYLBlkLnsp
2sgw5JVjyxwB5eUKMWpLTNChC6nMJbpd4fm4B1ty+sNd4LxUkRJCGZIjF6p8
foYo14yxk8GUBJr02vMIStKq7W3oac3bqpZDiTLh/cQCdua+6ZbBvjzbc1wU
Jd4HS+QsyDc1SaRcSvZ/uauo0rnpRgVZVV40Y/rTh8aLtMEF4C53MBX1GqXp
6MHEuBjN+FVr0FkpqxXVBzoM6M+nYActDrVeoHxruAftljj8aHKumy0DJe++
5hLQPGTRo+478RZqKKr3loKumZUPOXhccNtUBlLbQO0UuP0XmTQNXuwIRejG
4l4XOpoZ84Vu3Vj9KC+udziKBz1PjjF0iVtlRtU89SL6lCezc/iUtB8ltz2W
UVK3ctWDBsndBjT+8Yx9rYAfXxbCvkFn4Tq7thF25bsaUGHWYaUK/Acrtdzh

  "]],

Cell[BoxData["\<\"Variance of Subsidies (adjusted to units of $/mile) \"\>"], \
"Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJjJzumANaZusmdM32cXukJxyWmmkOQ21crgwhJwu
HBqRU9OipFyoKRIlahIJC2mR/1ejlZhF3vfi6Xf5PD3x2paieh8Wi6WEzKQu
RJgYhrxwrMkDoKpALUWtMcJGdC6BOUc3C1/f78CGtO5gBzirUMcHUIakqcTl
Hi9DNCumqFF/SnynDLrTEEoSS2x69Lj0bVnHoUQjdB2ZwVbZW+Mi2JVufRKE
UeK+N4dOgvypWrmCS8nuL3cZ1VytO9HwlGI3Khr/8KDREp1/JrjN7U1A3SZF
Ero3MixFRb/aenRSwWpCDb52I/rzEb6F5gRazlC+JfgVbZfbvWiczMlWgnKX
py4XnO4zG1DnrXQDNWZXuvNAx8TSuwo8zLypzQeptadsDNz8C40dB8+2xBJ0
bX6nDR1MjvxEN64tXpQn6OwP40HPo30IXeAWT6NannYefUxX2jh8SpoP4vQP
+ZRULF10oH4qpxGNfjhhX6rhx+e5oC/wKmuVXVYDuzIc1eh31X5ROfgPM3zd
4A==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"VMT weighted Mean, Variance of subsidies across states \"\>", 
   "\[InvisibleSpace]", "0.007301083799242316`", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", 
   "0.00017196339842062328`"}],
  SequenceForm[
  "VMT weighted Mean, Variance of subsidies across states ", 
   0.007301083799242316, " ", 0.00017196339842062328`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJnIcF6wh2WTNnL7JLnaHxChmpZEch1o5XBhChguH
RuTUtCgpF4oiUaImTcIaaZH/V6OVNGvyvhdPv8vn6UnRdlQ0BbBYLDlkPms5
xsgw5I1jzRgBFWVKMWpNSmxBF1OZa3Sn/P3zEWzO7g93gAsyZUoIZUi2QqT2
+hiiWjfGTQZTEjir111GUJJWddSGnld/rOk4lKgS3WdmsFPy0bIC9uVaX+Kj
KPE8mSNnQP6sRirjUnLg566hKvuWC43OrPSgQtOXF03I0QXng3vcwVTUY5Sl
o4cT42JU6Nc2oTMyViuqD7QZ0N+v6F20KNRyhfIt4e9ot9TmQwUSF1sOSt3e
xmJwbsisR10P4m3UUFjnKQEd06ufCvA0/15TClLrQM0UuPMXmWwCr3ZFOejm
0n4XOpoR+41u31l8KC++dziKBz3PtjF0mVs5h2p52iX0OVd+xOFT0n4iaHOW
UlK7etODBilcBjTBecG+VcKPr4thP6C9YINd0wC78hz16N70cYUa/Acymt3K

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"singlev \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{
    "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`"}], "}"}]}],
  SequenceForm["singlev ", CompressedData["
1:eJxTTMoPSmVkYGAwBOI1KTsqlslMdBilB5YGACTTvT8=
   "]],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAg3JLGvm9G3Zxe6QnIpZrZEch1o5XBhCThcO
bSKnprWVlAtFSJSmJpGwkBb5f4VW0izyvhdPv8vn6UnStJVp/Vgslgwyl7kY
aWQY8sKxpg+B8hKlCLXGxzWhC8nMOWorff24AxuzekNd4LxUmRREGZIlF1Z7
fQxRrRqjxwMp8Z/R687CKEmp2GtBTyrfVnQcSlRx78cmsD3nrWkJ7BFbn2Ii
KPHcm8KnQf6MWiLlUrLzy11BVVcbblSQUe5B0yY/vWhsti4wD9zi9iejHqM0
Fd0dGxWhab8aLTotZTWjen+nAf35FNjRwmCLA+VbQl/RTonThybmuNkyUPLu
bSgCZwdMetR9K9pEDQW1nmLQNbX8IQeP8m7UCpBa+6omQNtfeMIk6LALs9F1
83YHOpwe9YVuXlt8KC+mezCCBz2PzhF0kVs+i2p4GjP6KJbtcfiUtB4mtjwo
KKlZvuhCA+RuAxr7cMq+VMKPzwsh3+BV/hq7qh525brq0JeD/bJq8B81mt4w

  "]],

Cell[BoxData["\<\" A Versus B \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEInZEbl5gRwtI2vm+k32Yu+QGOVYaZacQ60cLwwh1wtH
2yJX06KkvFAUiXLUJBLWSMva/5ejlTSLfL8vnj4vn6cnQdVW1ujDYrGkkLkM
U7ieYcgrx5I2BMpK5CLUEhujQRcSmUt0s9T58QA2CXuDbeC8RJ4QQBkilKUq
PV6GKFb0keP+lPjOaNVnIZQkVey3oCeVrmU1hxJFzPuxAWzPcmkWwZ5sy3NU
GCXuR0PoNMifqRdLuJTs/nKXUcXNugMVpJe70ZTJTw8anan2zwW3uf2JqFsv
SUb3xkZFaMqvqhGdlrCaUa2vVYf+fAq20IJA8wXKNwc70U6x1YvGZznYUlD8
7mkoBGcHDFrUcS/aQHX5Ne4i0Da19CEDj3Lv6otBaumrmgA3/0LjJsGLrdRM
dM2404EOp0V8oRu3Zi/Ki+oeDONBz5N1BDVxy2dRFU9lRJ+ypfscPiWth/Et
9mJKqpeuulA/mUOHRttP2ddy+PFlIegbvMlbZVfVwa4cWy16/nZQpgT/ATX8
3kI=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.95493547746542148769149108513622721634`11.815587066927879"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.95493547746542148769149108513622721634`11.815587066927879],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEC1mR8Qc8wI5M7Jmrt9kL/YOyVWO1Zol51ArxwtDyPXC
0SxyNS1Kygu1RKJETZqENdIi/1+hlTSLfL8vnj4vn6dHrG4v1/ixWCw5ZD7d
HGFkGPLCtaYOg4pSpQS1xsbo0MUE5hLdLnv9uAebM/s4TnBBphQHUYZkKlJq
vD6GqNaMUROBlPjP6rXnoZQkVtpa0dOqt1UtlxJVzPuJCezIftMtg7051qfo
cEo8D6awGVAw2yiV8SjZ/+WtoirHphsVplV40OSpTy8qytIG5oG7vIEE1GOU
JaEH42MSNPlXrUFnZKwWVO9vN6A/n8IdtDDYcoEKLJxXtEtq96Hx2W62HJS+
e5uKwLlBkx5130m2UENBnacYdE6vfCjA47zbxhKQWvurJ8Htv7C4KfBiJyUL
3Vja60RHUiO/0K0biw/lR/cMhfOh59E+ipp5FXOomq9eQh9z5DaugJK2o/hW
VwkltStX3WiAwm1ARa4z9rUSfnxeDPkGHfnr7OoG2JXrrEczRIflNeA/K2vc
1g==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state  \"\>", "\[InvisibleSpace]", 
   "2.582259753174607`*^9"}],
  SequenceForm["Welfare from state  ", 2.582259753174607*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEImdRJjTBXJoGVkzp2+yi+UGyakcVpolx6FWDheGkNMF
1iZyavpHSblQEokSNYmEhbTI/yvTSpo1ed+Lp9/l8/TEa9rLmnw4HI4CMp++
GG5kWfLGY1KHQWWxSooyMWIdakpgL9Gt0nfnA9gs6Qu2gwtyVXwAZYlEmVLt
9rBEvWqMnPCnxHdWrz0PoSSx4qAVPa38WNHyKFGLP0/MYEfmh24J7M1iXqL4
lLgezaEzoGi2QSYXULLnFayg6psNBxqWVu5Ck6e+3Gh0htY/B9wRDCSgLqM8
Cd0fH5OiyV5NEzoj57Sgel+bAf39CttG8wOtF6jIGvyOdslsHjQu08FVgLJP
d2MBODdo1qOOe+kmasirdRWC9ullpxI8zrlrKAIp0181CW79hcZOgRfbKRno
umW3Ex1JjfhGN2+tHlQY1TPEF0LPs20UXRSUz6EaocaCPmcpDngiStqO4lqf
iiipWb7qRv2UDgMa/XTGvVbBj6+moB/wJneNW1UPu7LtdWh/yWFZNfgPLzPd
VQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform  \"\>", "\[InvisibleSpace]", 
   "2.582259744911728`*^9"}],
  SequenceForm["Welfare from uniform  ", 2.582259744911728*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJnLmAg3JyJo5fZNd7A6JUQ6rNSPHoSaHC0PIYRdD
I3JqWltJuVASidLUJBIW0iL/r9BKmkXe9+Lpd/k8PYnK9nKVD4vFkkDmMpYi
9AxDXjiWtBFQWioTopa4WA26kMSco9ay1487sCmzP9gJzotliQGUIZlSgcLj
ZYh8TR816U+Jr0GrPguhJLlyvxU9qXpbVXMokce+H5vAjuw3zTLYm2N5ig6j
xH1vCp0F+YYGkZhLye4vdxWVX2260PD0CjeaOv3pQWOy1P554DZ3MAl168Up
6N7EuBBN/VWq0FkxqwXV+jp06M9nuA0tDDTbUb45+BXtEjm8aEK2iy0BRe+e
xiLQOGTSoq5b4RaqK6h1F4POmZUPKXiUd9NQAlLLQPUUaP0LjZ8G7TZBFrqx
uNOJjqZFfqFb12YvyovuGQ7jQc+jYwxd4lYYUSVPuYg+5kj2OXxK2g4TWh9K
KKlZuehG/aQuHRrzcMq+lMGPzwtB3+BV/jq7uh525Trr0Oa+g3IF+A8v3d1w

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "8.262878894805908`"}],
  SequenceForm["Exact  ", 8.262878894805908],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEMlmm8iZC+SQzLJmTt9kF7tjiZHTas2S41ArhwtDyHDh
0Iic2lpbSblQEokSNYmEhbTI/yu0kmaR9714+l0+T0+Sur1C48disaSQuayl
SCPDkBeuLWMYlJXJhagtPk6HLiQz56i9/PXjDmzO7gt1gfMSeVIQZUi2LF3l
9TFEsWaMngikxH9Grz0NoySlcq8VPa56W9VyKVHEvR+ZwY7cN90y2CuyPcWE
U+K5N3OmQcFMo1jCo2Tnl7eKKq423WhEptKDppk+vWhsjjYwH9ziDSSjHqMk
Fd0dHxOiab9qDTotYbWgen+nAf35jHCgRcGWM1RgCX1Fu8ROH5qY62ZLQfG7
t6kYnB0061H3rdCKGgprPSWga2rlQwYe5t80loLU1l89Cdr/OAkm8MyRnoNu
LG53oiMZUV+o9driQ/kxPUPhfOh5dI6iSzzlLKrmqxfRR5F0jyugpO0gsfWh
lJKalYtuNEDmNqCxDyfsSzn8+LwQ8g1eFayzqxtgV56rHq2z7FeowH8wsN2Q

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1625698863454`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1625698863454`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXK2C+SQNrK2OX2TXewOiVHMSiM5DrVyuDCEnC4c
GpFTW4uScqEkEiVq0rSwRlrk/xVaSbMm73vx9Lt8np4UbUdFUwCLxZJDFrJX
oo0MQ1451swRUFGmFKPWxIQWdEnIXKM75W+fD2BzTn+4E1yUKlNCKENyFBlq
r48hqg1j7GQwJYFzet1lBCWpVUdt6Hn1+7qOQ4kq4ePMBHbmvresgn151ue4
KEo8j6bIWZA/p5FIuZQc+LnrqMq+7UYFWZUeNH36y4vGi3TBMnCPOyhEPUZp
Gno4MS5G0/3aJnRWympF9YE2A/r7JdhFi0LNVyjfHP6GdktsPjQ5182Wg5IP
b2MxOD9k0qPue7EFNRTWeUpA58zapwI8lTk0pSC1DtRMgTt/kUnT4NVuhgjd
Wt7vQkczY75Ry53Zh/LieoejeNDzZBtDV7iV86iWp11Gn/LkRxw+Je0nyW2u
Ukpq12560CCF24DGuy7Yt0r48WUp7Ae0F2yyaxpgV76zHtU7jivU4D8ysN3W

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Subsidy first state \"\>", "\[InvisibleSpace]", 
   "1746.9300000000003`"}],
  SequenceForm["Optimal Subsidy first state ", 1746.9300000000003`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC1mh8iZC+TQMrJmTt+WXewOyVDMSiPNaaiVw4Uh5HTh
0CZyalpWUi6UQqJETSJhjbTI/yu0kmZN3vfi6Xf5PD3J2vaKpgAWiyWDzGcv
RZkYhrxybZnDoLxMKUZtCfEt6GIKc4lul799PoDNoj6OE1yQKpNDKENE8owa
r48hqjVTzEQwJYGzBt15OCWpVQd69LT6fVXHpUQV/3FiBjty31uWwd4823Ns
JCWeR3PEDCiY1UikPEr2/LxVVHWz6UaFWZUeNH3qy4vG5eiCC8Ad3kAK6jFJ
09D98TExmu7XNqEzUlYragh0GNHfL6EdLQ61XqACK+cN7ZI4fGhSrpstAyUf
3sYScG7QbEDd9+It1FhU5ykFndMrn3LwuOBOowCprV89CW7/RSROgRf2jBx0
w7LbiY5kRn+jW7dWH8qP7RmK5EPPk2MUXeJVzqFavtaCPuXJDrgCStqOkvQu
BSW1K1fdaJDcbUTjXGfsayX8+LIY9gPeFK6z1Q2wK99Zj/qDDitqwH8xSN2P

  "]],

Cell[BoxData["\<\" A Versus C \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJofN8QI5JCNrm9M32cXuWHIqh5VmyXGolcOFIWS4
cGhETk2LknKhFBIlahIJy6RF+39layXNIu978fS7fJ6eJHVHRbMfi8WSQeaz
lqMMDEPeOZaMEVBephChlvg4LbqYzFyjO+UfriewJbs/1AYuSBRJQZQh2fL0
Gq+PIcp1Q+xkICX+szrNZRglKZVHbeh5lXNNw6FEGfd5ZgI7c53aFbAvz/Iq
iKDE82wKnwH5s41iCZeSg1/uGqq823KgkZkqD5pmdHtRYY4mUArucQeTUY9B
kooeToyL0LRfdTM6I2G1ojp/qx79cUfuokXB5iuUbw79QLvFVh+amOtgy0Dx
p7epGJwbMulQx6NoG9UX1nlKQNv0qksOnkofGktBahmongJ3/sITjODVbnoO
urm034WOZkR/odv3Zh/KE/QOR/Cgx24dQ5e5qjlUzVMvofY82RGHT0n7SWLb
Sykltas3PWiA3KFHhS8X7FsF/Pi2GPIN3hVssKsbYFe+rR51xxyrasB/MXHd
lw==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.95493548047711498132481378422973589857`11.815587095925101"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.95493548047711498132481378422973589857`11.815587095925101],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC1mh8iZCzSkjayZ0zdZ2h1LTuWw0izNaaiVw4Uh5HTh
0IicmhYl5UKtkKZETSJhmbTI/yu0kmaR9714+l0+T0+ipq28yY/FYskhcxlL
ESaGIS9ca9oQqChRSlBrXKwOXUhiLtDtstePe7A5s5fjBOdlysQgypBMhaja
62OIas0UNR5Iif+MQXsWSklyhU2P2ivfVrVcSlSx7ydmsD3rTbcM9mRbn6LD
KfE8mMOmQcFMg1TGo2T/l7eKqq433agwXe1BUyc/vWiMWBuYC+7y+pNQj0mW
gh6MjUrQ1F9NEzotY7WgBn+HEf35FO6gBcGWc1Rg4byinVKHD03IcrPloPTd
21gIzg6YDaj7TrKFGvNrPUWgc2rlQwEe5942FIPU2lc1AW7/hcVPguc7IjG6
sbjXgQ6nRX6hWzcWH8qP7h4M50OPyzGCLvHUs6iGr1lEXdlyG1dASetRgv6x
mJKalcsuNEDhNqIxj6fsKyX8+LwQ8g1e562zq+phV46zDrWXHqqrwX8xYt2b

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county full \"\>", "\[InvisibleSpace]", 
   "2.582259754745513`*^9"}],
  SequenceForm["Welfare from county full ", 2.582259754745513*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJjJzukAOySxr5vT9ZRe7Y8mpHFaaJcehVsOFIWS4
cGhETk2LErlQKyRK1CQSFtIi/6/QSppF3vfi6Xf5PD3xmtbSBh8Oh6OATKfP
R5hYlrzwbKkDIFOslKC2GLEOnU1gz9GNktePO7AxwxjsBGfkyvgAypIMJqXS
42WJatkUNepPie+kXnsaQklimb0ZPS5/W9LyKFGJ348sYFvWm24B7JbankRh
lLjvLaEToHCyTibnU7L7y19CVVdrLjQ8Te1Gk82fHjQ6U+ufA27xexNQt0me
hO6NDEvQ5F9NAzoh5zShel+HAf35DN9E8wOtZ6jQGvyKdsgcXjQuy8VVgLJ3
T30BONVn0aOuW8k6asirdheCzvHFDwY8zLmpKwKpradiDNz4C401g2ebKZno
6tx2OzqYGvmFrl9bvahA1NUfJoCeR8cQOs9XT6EagWYOfZQq7DwhJS0Hcc0P
RZRULV50on6My4BGP5xwL5Xw4/Ns0Dd4lbvCraiFXdnOGnTHuK+uBP8BMj7d
vQ==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.5822597449119844`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.5822597449119844`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC2bbSJnLpBDMsuaOX2TXeyOJUY5rDSS41ArhwtDCNuF
QyNyaixKyoVSSJSoSSSsTVrk/xVrJc0i73vx9Lt8np5ETXt5ox+LxZJBZjMX
IwwMQ1551vRhUF6qEKHWuNhmdD6JuUK3y94+H8GmrD6OHZyTKhKDKEOy5Glq
r48hylVD1EQgJf4mnfYilJLkisNW9KzyfUXLo0QZ+3FqBjty3puXwF6x9Tk6
jBLPk5lrBIWmeomUT8n+L38FVd5uuNDwDJUHTZ1ye9GYbG1gHrjLH0hCPQZp
CnowPiZCU381jahRympBdf42PfrjDt9BC4Mtl6jQwnlDuyQ2H5qQ42LLQMmH
t6EInBk061DXg2gT1RfUeIpB+/Typxw8ybuvLwGptb9qEtz+48ZPgZc7adno
+sJeJzqSHvmFbt5ZfKggumcoTAA9TtsoushXzaAagWYBdYplhzwhJW3HCa2O
Ekqql6+70QC5S4/GOM7ZNwr48WU+5Bu8zV9jV9XBrlx7LSrbOlKpwX8vud1y

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact  \"\>", "\[InvisibleSpace]", "9.833528518676758`"}],
  SequenceForm["Exact  ", 9.833528518676758],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEC1mh8iZC2QkI2vm9E12sTuWnIpZrZEch1o5XBhCThcO
jcipaW0l5UKtkChNTSJhjbTI/yu0kmaR9714+l0+T0+ypqNSG8BisWSQhayV
KCPDkBeuRTQCyssVYtSSEN+CLqUwF6i14vXjHmzO7ue4wEWpIjmEMiRbnlHr
8zNEuWGMmQymJHBOrzsPpyS1yt6Gnla/reu4lCjj309MYGfuW8sq2JdneYqN
pMT7YIqYBQVzaomUR8n+L28dVV5ve1BhpsqLpk9/+tC4HF1wAbjLG0xBvUZp
GnowMS5G0381WnRWympF9YFOA/rzKbShxaFmByowc17RbonTjybletgyUPLu
ayoB54dMetRzJ95BDUX13lLQNbP2IQePC27VZSC1DNRMgda/iMRp0GHLyEG3
lve60FFR9Be6c2P2o/zY3uFIPvQ8OsfQFZ5qHtXwNcvoY57MzhVQ0n6U1OYu
o6Ru7bIHDZJ7DGic+4x9pYAfn5fCvsHrwk12TSPsync1oO6bQ1Ut+A82Bd5B

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1632723405428`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1632723405428`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIWKOF8hIZlkzp2+yi92xxChmpW3JcaiVw4Uh5HTh
0MiaQ9OipFwoFyRK1CQSFtIi/69YK2kWed+Lp9/l8/Sk6tqrmoNYLJYcMp+z
HGthGPLKcYqGQUWFUow6kxKN6GIac4FuVb593oOG3L5IN7ggU6aGUYbkKrI0
/gBDVKuW+IlQSoJnTfqzKErSqw9a0ZOad7ueQ4kq8ePYCnbkvxtXwF6J8zkh
hhLfgzV6BuTPaqUyLiV7v1w7qrre8KCCbLUPzZzy+lFhnj60ENzhDqShPoss
A90fHxOjmb+6ZnRGxmpBTcEuM/rjFWyjJeGOc5TviHxDu6SuAJqS72HLQemH
v6kUnBu0mlDPnXgTNRfX+8pA97TtUwEeFd5qy0Hq7K+dBLf+opOnwPPtrDx0
fWm3Ex0RxX2hmzeOAMpL6BmK4UHPk2sUXeaq51AdT7eEPknkBxw+JW2HKa2P
5ZTU2S670RCFx4wKH0/ZV0r48WUx4hu8Llpj1zbCrgJ3A2pgH6o14D8sndz6

  "]],

Cell[BoxData["\<\" A Versus D \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEImdRMxpF2gjmWXNnL7JLnbHklM5rDRLjkOtHC4MIacL
h0aWU9OipCi1CxIlahIJC2lZ/l+hlTSLvO/F0+/yeXqSdW1ljQEsFksJmctY
ijYzDHnl2CVDoKpELUXtCfEGdEHEXKBbpZ6Pe7ApszfcBc4r1MkhlCGZKnGV
z88Qzao5djyYksAZo/4sgpKUckcLelLxtqLnUKKJfz+2gO3Zb4ZlsEdmf47j
UuJ9sEROg4KZermCR8neL28F1VxvuNGodK0XTZv89KHCLH1wLrjD6xehXrMi
FT0YG5Wiab+6RnRawWpGjYFOE/rzGbWNFoTazlGBLdyDdsqdfjQp281WgvJ3
X0MhODtgMaLuO+kmasqv8RaBrinrhwo8yr2tLwapva9yAtz6i0ycBM+3xVno
+uJuBzosiflCN29sfpQf1z3I5UPPk3MEXeJpZ1EdX7eIPsmUDo6AktbDpJbH
YkqqrZddaJDKbUKFj6fsKzX8+LIQ9g1e562xK+tgV46rFt33nGqrwH81bd4y

  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.95493547746542148769149108513622721634`11.815587066927879"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.95493547746542148769149108513622721634`11.815587066927879],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZ5pA5XyCHZJM1c/omu9gdS4ZyWGmkOQ21crgwhJwu
HBqRU9PaSsqF2gUJiZpEwkJatP9Xo5U0i7zvxdPv8nl6ktUdlc1+LBZLClnI
Xok2MAx545gzR0BZuVyImhPiW9GlFOYStVS8fzyALTn9oQ5wUSJPDqIMyZFl
1Hh9DFFsGGInAynxn9NpzsMoSa2yadGTate6hkOJIt59bAQ7Ra7WVbAvz/wi
iKDE82gMnwX5c41iCZeS/V/uOqq42XaikVlKD5o+/elF43I1gQXgLncwBfUY
JGnowcS4EE3/VTejsxJWG6rzt+vRn89IK1ocbLpA+abQd7RbbPehSSInWwqK
3d6mEnB+yKhDnffCHVRfVOcpBR0zax8y8KjgrrEMpOYB1RRo+QtPnAYvrBm5
6NbyXhc6mhnzhe7cmnwoT9A7HMGDnmf7GLrCVc6jap56GX3Ok9o4fEraD5O0
T2WU1K5d9aABMqcejXs6ZV/L4cfXpZBv8KZwk61qgF35jnp0KOpMWQP+Ay4E
3Ss=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from state native \"\>", "\[InvisibleSpace]", 
   "2.5822597419025726`*^9"}],
  SequenceForm["Welfare from state native ", 2.5822597419025726`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEInZJnKOF8iRNrJmrt+Wvdg7llzlWGkk51ArxwtDyPXC
0SxrjrbWlJQXygsSEjWJXAtp0f6/QitpFvl+Xzx9Xj5PT5K6o7zJj8ViSSEL
WcYoPcOQV44tYwSUlSpEqC0hvgVdSmbOUXvZ28c92JzdH+oEFyWKpCDKkGxZ
erXXxxDlqj5mMpAS/zmt5jSMkpSKvTb0qNJt1nAoUca/HxrAzhx3ywrYl2t7
jo2gxPNgCJ8F+XMNYgmXkp1frhlVXm240MhMlQdNm/70onFCTWA+uMUdTEY9
ekkqujsxLkLTftVN6KyE1Ypq/R069OczchMtCracoXxL6BvaLXb4UEGOiy0F
xe/exmJwfsigRV13IiuqK6z1lIDOGdOHDDzIv2mQg9Q2UDUF2v/CE6fBs810
Ibq+vN2FjmZEf6HWa4sP5cX2DkfwoOfJMYYauap5VM1TL6NPudI9Dp+S9n1B
26OckhrTRQ8aIHPp0LjHY/alAn58WQr5Bq8K1thV9bArz1mH3spPVNXgPzIH
3bE=
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full \"\>", "\[InvisibleSpace]", 
   "2.582259744911728`*^9"}],
  SequenceForm["Welfare from uniform full ", 2.582259744911728*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEA2zTeTMBTJaRtY2p2+yi92x5FQOK43kONTK4cIQcrpw
aEROTYuScqF2QUKamjQJa6RF+3+FVtIs8r4XT7/L5+lJ1nSUN/mxWCw5ZCFr
JcrAMOSVaxaOgIpSpRg1J8S3oEspzBW6W/b28QA2i/o5DnBRqkwOogwRKTKq
vT6GqDYMMZOBlPjP6bSXYZSkVlja0LNK97qWS4kq/v3UCHbmuFtWwb5c83Ns
BCWeR2P4LCiYa5BIeZQc/vLWUZV924VGZqo9aPr0pxeNy9YGysB93mAK6jFI
09CjiXExmv6raUJnpaxWVOdv06M/n5F7aGGwyYoKTJw3tFti86FJOS62HJS8
exuLwPkhow513Yt3UH1BracYdMysfSjAE9ldQwlIzQNVU+DuX3jiNGjdy8hG
t5YPutBRYfQXunNr8qH82N7hCD70PNnG0BWeeh7V8DXL6FOu3MIVUNJ+nNTm
LKGkZu26Bw1QuPRonPOcfaOEH1+WQr5Be/4mu6oeduU56tDQjgt1NfgPLOPd
Eg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare from State native - Welfare from uniform full  \
\"\>", "\[InvisibleSpace]", 
   RowBox[{"-", "3.0091552734375`"}]}],
  SequenceForm[
  "Exact: Welfare from State native - Welfare from uniform full  ", \
-3.0091552734375],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEC1mR2TuF8iRbLK2uX6Tvdg7lrscK43kHGrleGEIuV44
mkWupkVJeaH2goRETSJhjbQs/1+hlTSLfL8vnj4vn6cnQdte2ujHYrEUkPkM
c4SRYcgr15o2DCqLVWLUGhvTjC4mMpfodon74wFsyuzjOMAFmSohiDIkU5la
5fUxRL1mjJoIpMR/Vq87D6UkqczWip5UvK3quJSoY96PTWCH5K15GezNtj6L
winxPJrCZkDBbL1UxqNk/5e3iqpvNl2oMF3jQVOmPr1odJYuUA7u8gYSUY9R
lowejI+J0ZRfbSM6I2O1oHp/uwH9+RTuoPnBlgtUYOG40S6p3YfGS1xsBSh9
9zYUgHODJj3quhdvoYa8Gk8h6Jhe+VCCR/K7+iKQWvsrJ8Htv7C4KfBiJzUL
3Vja60RH0iK/0K1biw/li3qGwvnQ82QfRc08zRyq5WuX0KdshY0roKTtML7V
WURJ9cpVNxqgdBnQaOcp+1oFP74shnyDN7nr7Mo62JXjqEXLTWeaKvAfMFjd
hg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1625698863454`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1625698863454`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEMlOkdteIEcysmau32Qv9o4lVzlWGsk51MpVhpDhhaMR
zdHWmpLyQnlBckVNImEhLfL/FVpJsybf74unz8vn6YlXt5U2+LBYLBlkLm0p
TM8w5JVrTRkG5cUKMWqNiW5CF0TMBWorefu8BxvTe4Md4LxUER9AGZIuT650
exiiXNVHTPhT4juj1ZyFUJJQtteCHpW/mzRcSpTRH4dGsD3zvWkZ7MmyPkfy
KHE9GDnToHCmTiLlU7Lj5ZtQ5fWGEw1NVbnQJMOXG43K0PjngFv8fhHq0ksT
0d3xMTGa5FU3oNNSVjOq9bXr0N+v0E00P9B8jgrNwW9op8TuQeMynWwZKPlw
1xeAswNGLeq8E1tQXV61qxB0TK18ysGDnNu6IpBa+yomQdsfJ9YAnm8mZ6Dr
i9sd6EhK+DdquTF7UEFk9xBPAD1P9lF0ia+aRdUC9SL6lCXb4wopad2Pa3ks
oqRq5bIL9ZM7dWjU4zH7SgE/viwE/YDXuWvsilrYle2oQQdPT1SV4D8y6t3e

  "]],

Cell[BoxData["\<\" A Versus E \"\>"], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvC/LURitomcuUBDMrJmTt9kF7tzylDMSiPNaaiVw4Uh5HTh
0MiaQ9OipFwoFyTKoSZNwkJa5P8VWkmzyPtePP0un6cnQdNW1ujDMIwMMpe+
FG5kWfLCs6UOgfIShRi1xcY0owuJ7AW6Wfr6cQc2ZfQGOcF5qSLBn7IkQy6q
9nhZolwxRo77UcKZ0WtPgylJqtzXocdVbxYtjxJlzPuRCWzPemteBnuybU9R
oZS4700h06BwRi2R8inZ/eVbUKVj3YWGpZW70ZTJTw8anan1ywW3+f2JqNso
TUb3xkbFaMqvphGdljItqJ5jN6A/n2FbaEGA9RwVWoNe0U6J3YvGZ7m4MlDy
7mkoBGcHTHrUdSveQA35te4i0Dll/pCDh7k36mKQ2vpUE+DmX0jcJHi+JcpE
1xZ3OtDh1IgvdOPa6kUFUd2DoQLoebSPoEv88llUI9Asoo/Zsn2ekJLWg3jd
QzElNebLLtRX7jKg0Q8n3CsF/Pi8EPgNOvJWuap62JXjrENrIs8qqsF/LQ/d
Dg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Probability at optimal single subsidy \"\>", 
   "\[InvisibleSpace]", 
   "0.95493548047711498132481378422973589857`11.815587095925101"}],
  SequenceForm[
  "Probability at optimal single subsidy ", 
   0.95493548047711498132481378422973589857`11.815587095925101],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Gkow3EcBvCxEInZETnHC5ajtZE1c/0mK3vnylWOlUZyDrVyvDCEXC+w
RuRqWpSUF8oLEsXUpElYJi3y/xVaSbPI9/vi6fPyeXriNe0ljT4sFksBmU9b
CjcwDHnhWFKGQWWhSopaYmOaUWMCc4luF79+3INN4r5gB7ggV8UHUIaIlclV
Hi9D1GuGyAl/SnxnddrzEEoSyw9b0dOKt1UthxJ1zPuJCexIf2teBnszLE9R
YZS4H0yhMyB/tl4m51Ky/8tdRdX2TRcqSC11o6KpTw8aLdH6Z4G73IEE1G2Q
J6EH42NSVPSraURn5KwWVOdr06M/n4IdNDfQbEX55uBXtEtm86LCdBdbAcre
PQ154NygSYe67qRbqD6nxp0POqZXPpTgcdZtfQFILf2Vk+D2X2jcFGjdSZag
G4t7nehISsQXunVj9qK8qJ6hMB70OG2j6BK3dA7V8DSLqDNDccjhU9J2JGx9
LKCkeuWqG/VTuvRo9OMZ+1oFPz4bg75Be/Y6u7IOdmU6alFd0UVZFfgPLyDd
Vg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Exact: Welfare county native - welfare uniform full  \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"-", "1.7527070045471191`"}]}],
  SequenceForm[
  "Exact: Welfare county native - welfare uniform full  ", \
-1.7527070045471191`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAjkkm6yZ0zfZxe6cMhTzrzXSnIaaHC4MIacL
h0bk1LQoKRfKBYlyqEkkLKRF+3+FVtIs8r4XT7/L5+mJY5pLtF4cDkcOmUlb
CDWxLHnlWVMGQEWRUoxao6Ma0Ll49gLdLH77uAfr07sD7eCsTBnnR1mSrkiu
dHtYoloxhY/6UuI9ZdCdBlGSUL6vR48rnMs6HiWqqPcjM9gicTYsgp2Z1ueI
EEpcD+bgSVA4pZHK+JTs/vKXUdX1ugMVpZa60KTxTzcamaHzzQa3+b3xqMsk
S0T3RobFaNIvo0UnZZxG1OBtM6I/n6ItNM/fco4KLYFvaJvU5kFjJQ6uHJS+
u+vywek+swF13Ik3UGNutasAtE8sfSjAw+xbTSFIrT3qMXDzLzhmHDzfSs5A
1+Z3WtHBlLAvdOPG4kEFER39IQLoebINoQv80mmUETDz6FOmfJ8npKTpIFb/
WEhJ1dJlO+qjcBjRyMcT7pUSfnyZC/gGr3NWuepa2JVlr0GZrrOySvAfL+/d
dg==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from county native \"\>", "\[InvisibleSpace]", 
   "2.5822597431592774`*^9"}],
  SequenceForm["Welfare from county native ", 2.5822597431592774`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZIXLmAjkkm6yZ0zfZxe6cMhSzWiPNaaiVUxlCThcO
jcip6R8l5UK5IFEONYmEhbRo/6/QSppF3vfi6Xf5PD1x2uYSnReHw5FDZtIW
Qs0sS155TMoAqChSilEmOqoBnYtnL9DN4rePe7A+vSvQDs7KlHF+lCXpiuRK
t4clqhVz+KgvJd5TRv1pECUJ5fsG9LjCuaznUaKKej+ygC0SZ8Mi2JnJPEeE
UOJ6sARPgsIpjVTGp2T3l7+Mqq7XHagotdSFJo1/utHIDL1vNrjN74lHXWZZ
Iro3MixGk361OnRSxmlEjd42E/rzKdpC8/yt56jQGviGtkltHjRW4uDKQem7
uy4fnO61GFHHnXgDNeVWuwpA+8TShwI8zL7VFIKU6VaPgZt/wTHj4PlWcga6
Nr/Tig6mhH2hGzdWDyqI6OgPEUDPk20IXeCXTqNagXYefcqU7/OElDQdxBoe
CympWrpsR30UDhMa+XjCvVLCjy9zAd/gdc4qV10Lu7LsNWgfc1ZWCf4DMi/d
xA==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Welfare from uniform full  \"\>", "\[InvisibleSpace]", 
   "2.5822597449119844`*^9"}],
  SequenceForm["Welfare from uniform full  ", 2.5822597449119844`*^9],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTLSYbSJnLtCQjKyZ0zfZxe6cMpTDSiM5zqGVw4Uh5HSB
NSKnpkVJuVC7IFFMTZqEZdIi/6/QSppF3vfi6Xf5PD3x6vbSRh8WiyWDLKQt
h+kZhrzwzCkjoLxYIUbNMdHNqCGBuUR3Sl4/7sGm9H6uA1yUKuL9KUPS5aIq
j5chynV9xCSHEt85reY8iJLECksrelr5tqbhUaKMfj8xgh2Zb80rYG+W+Sky
hBL3gzF4FhTO1UukfEoOfvlrqNK+5UJDU8vcaPL0pweNytBwcsA9/mAC6tZL
k9DDiXExmvyrbkRnpawWVOtr06E/n6G7aH6AyYoKTdxXtEti86JxmS62DJS8
exoKwPkhoxZ13Ym3UV1ejbsQdMysfsjB45zb+iKQmgdUU+DOX3DsNGjdFWWg
m0v7nehoSvgXun1j8qKCyJ7hEAH0OG1j6DK/bB5VC9RLqDNLZuEJKWk7imt9
LKKkevWqG/WTu3Ro1OMZ+1oBPz4bAr9Be+4GW1UHu7IdtWjf3UV5FfgPMzDd
6g==
  "]],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Optimal Single Subsidy \"\>", "\[InvisibleSpace]", 
   "1095.1632723405428`"}],
  SequenceForm["Optimal Single Subsidy ", 1095.1632723405428`],
  Editable->False]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxEInZJnLmguWQjKyZ0zfZxe6cYpTDSrPkONTK4cIQwlw4
NKI5NC1KyoXaBYnS1CQSFtKi/T+xVtKsyftePP0un6cnWdlV2erHYrEkkMWs
1Sgdw5A3jjljDJSWy4SoOSFejS6nMJfobsX71wPYlj0YageXxLLkIMqQbGm6
wuNliHxDFzMdSIn/vEZ1EUZJao2lAz2rdRpVHErk8Z+nBrA716leAwfyzC+x
EZS4Hw3hepA/3ywScyk59HGNqPxm24FGZla5UcGsy4PG5agCC8B97nAK6taJ
09CjqUkhKvApW1G9mNWOavxtWvTXFbmHFgebrCjfFPqO9opsXjQp18GWgKJP
T0sJuDBi0KCOe+EOqi1qcJeC9rn1Lyl4UnDXXAZS81DdDLj7F544C1r30nPQ
rZWDHnQ8I/ob3bk1eVFebP9oBA96nm0T6Cq3agFV8pQr6HOexMLhU9J5nNTx
VEZJ/fpVHxogdWjRuKdz9rUMfnxdDvkBbwo32XVNsCvf3oh+BFmrFeA/MSDd
jg==
  "]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\" \"\>", ",", "10664.019305026453`", ",", 
     "10507.638476642005`", ",", "10037.279770879111`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Prob of Adoption Gas Car\"\>", ",", 
     "0.99096718022101709945277678884982796652`12.46925206287034", ",", 
     "0.98194381265022383153350372219066799848`12.20721672444552", ",", 
     "0.95493547746542148769149108513622721634`11.815587066927879"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Optimal Uniform Tax on Electric Car Purchase\"\>", ",", 
     "1095.1625698863454`", ",", "1095.1625698863454`", ",", 
     "1095.1625698863454`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare B-A: state specific vs uniform\"\>", ",", 
     "1.6199350357055664`", ",", "3.255371570587158`", ",", 
     "8.262878894805908`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare C-A: county specific vs uniform\"\>", ",", 
     "1.9289426803588867`", ",", "3.875821590423584`", ",", 
     "9.833528518676758`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare D-A: state specific (native) vs uniform\"\>", ",", 
     RowBox[{"-", "0.5896000862121582`"}], ",", 
     RowBox[{"-", "1.1850037574768066`"}], ",", 
     RowBox[{"-", "3.0091552734375`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare E-A: county specific (native) vs uniform\"\>", ",", 
     RowBox[{"-", "0.3423914909362793`"}], ",", 
     RowBox[{"-", "0.6886477470397949`"}], ",", 
     RowBox[{"-", "1.7527070045471191`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare B-D: state specific vs state specific (native)\"\>", 
     ",", "2.2095351219177246`", ",", "4.440375328063965`", ",", 
     "11.272034168243408`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare C-E: county specific vs county specific \
(native)\"\>", ",", "2.271334171295166`", ",", "4.564469337463379`", ",", 
     "11.586235523223877`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare A: uniform tax across all states\"\>", ",", 
     "2.5822593788415174`*^9", ",", "2.5822594735393376`*^9", ",", 
     "2.582259744911728`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare A': uniform tax across all counties\"\>", ",", 
     "2.582259378841797`*^9", ",", "2.582259473539612`*^9", ",", 
     "2.5822597449119844`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare A: Federal \"\>", ",", "2.5822593788415174`*^9", ",",
      "2.5822594735393376`*^9", ",", "2.582259744911728`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare B: State \"\>", ",", "2.5822593804614525`*^9", ",", 
     "2.582259476794709`*^9", ",", "2.582259753174607`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare C: County \"\>", ",", "2.5822593807707396`*^9", ",", 
     "2.5822594774154334`*^9", ",", "2.582259754745513`*^9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare D: State Native \"\>", ",", "2.5822593782519174`*^9",
      ",", "2.582259472354334`*^9", ",", "2.5822597419025726`*^9"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Welfare E: County Native \"\>", ",", 
     "2.5822593784994054`*^9", ",", "2.582259472850964`*^9", ",", 
     "2.5822597431592774`*^9"}], "}"}]}], "}"}]], "Print",
 CellChangeTimes->CompressedData["
1:eJwV0Fsow2EYBvCxTCR2EmGMCzQkI2ub0zfZxe6cYpTDSiM5DrVyuDCEDBcO
jcipaVFSLpQLEqWpSSQspEX+XzmspFmT9714+l0+T0+8rq2kwY/FYikhs2mL
ESaGIS9cW8oQqCpSS1FbrKgJnU9gztGt4tePO7AxvTfECc7J1fGBlCHpKonW
42WIZtUUNc6hxH/aoD8LpSSx/KAFPal4W9FzKdGI3o8tYHvmW9MS2JNle4rm
UeK+t4RNgcLpOpmcT8mej7+Caq42XGh4aqkbTTZ/etCYDD1HAe7w+xNQt0me
hO6PjUrRZJ+uAZ2Ss5pRg7/DiP5+hm+jeUFWOyq0hryinTKHFxVnuthKUPbu
qc8HZwYsBtR1K91EjbnV7gLQObn8oQKPFDd1hSC19VVOgFt/YXFm0L4tyUDX
F3Y70OGUyG9089rqRQXR3YM8AfQ8OkbQRX7pDKoT6BbQxyzlAVdISeuhuOWh
kJKq5YsuNEDlMqIxD6fsSzX8+Dwf/ANe5ayxK2thV7azBv1S2Mu04D8yrd3G

  "]]
}, Open  ]],

Cell[BoxData["\<\"welfare_big2011.xlsx\"\>"], "Output",
 CellChangeTimes->{
  3.611057898308585*^9, 3.611057996229701*^9, 3.611058112073534*^9, {
   3.611058380251402*^9, 3.611058461974218*^9}, 3.611058524042748*^9, 
   3.611059373607765*^9, 3.6110594773396997`*^9, 3.611059618627243*^9, 
   3.61105982026546*^9, {3.6110598795475597`*^9, 3.611059893812447*^9}, 
   3.6110600273430157`*^9, 3.611060080718577*^9, {3.611060352616242*^9, 
   3.611060382165983*^9}, 3.611060542358573*^9, 3.611061138029195*^9, 
   3.6110614561274853`*^9, 3.611061525637685*^9, {3.611061556654544*^9, 
   3.6110615734397163`*^9}, {3.611061814688031*^9, 3.611061842889675*^9}, 
   3.6110618877261143`*^9, 3.611061940076025*^9, 3.611062244347458*^9, 
   3.611067977137841*^9, {3.611319947879558*^9, 3.611319979262575*^9}, 
   3.611320065274014*^9, 3.611320118398333*^9, 3.611320162230113*^9, 
   3.611320284731204*^9, 3.6113204013925037`*^9, {3.6113205376746683`*^9, 
   3.6113205665899067`*^9}, 3.611320666433518*^9, 3.611321154919878*^9, {
   3.611321211882049*^9, 3.611321234806746*^9}, {3.611321313292583*^9, 
   3.6113213606793833`*^9}, {3.611321455399179*^9, 3.611321468797062*^9}, {
   3.611321535501436*^9, 3.611321546615385*^9}, 3.611321628239285*^9, 
   3.611321705014036*^9, 3.611322504734293*^9, 3.611322564701857*^9, 
   3.611322703102584*^9, 3.6113230412567863`*^9, 3.61132765427317*^9, 
   3.611659994447823*^9, 3.6116600369772053`*^9, 3.6116600949418087`*^9, 
   3.6125268711778793`*^9, 3.612526905078992*^9, 3.61252699214542*^9, 
   3.612527261318284*^9, 3.612529563073154*^9, 3.612614046370076*^9, 
   3.612614220193791*^9, 3.612614384390292*^9, 3.612614472270536*^9, 
   3.612614613408866*^9, {3.612614817566716*^9, 3.612614844879161*^9}, 
   3.612617053306816*^9, 3.612617106193083*^9, 3.612617544906761*^9, 
   3.61261834328504*^9, 3.612792703196203*^9, 3.612794979858635*^9, 
   3.612883210191588*^9, 3.621767881288454*^9, 3.627309268140294*^9, 
   3.631631163437271*^9, 3.631631213881341*^9, 3.6324795032874947`*^9, 
   3.6325842234372396`*^9, 3.6325916952560463`*^9, 3.6328486453151903`*^9, 
   3.633086588793688*^9, 3.633433019015448*^9, 3.633433864565504*^9, 
   3.633434405152561*^9, 3.633434514568087*^9, 3.633434575489251*^9, 
   3.6334346751929417`*^9, 3.6334348999059*^9, 3.6334349377636337`*^9, 
   3.633435028293915*^9, 3.6334354350608673`*^9, 3.633435479977824*^9, 
   3.6334355984406757`*^9, 3.633436008655505*^9, 3.6334362531887617`*^9, 
   3.633436472365889*^9, 3.633436638443652*^9, 3.6334367031006203`*^9, 
   3.633445647807611*^9, 3.633445788801482*^9, 3.633446209561372*^9, 
   3.63344885082489*^9, 3.6334529249819*^9, 3.633453830697187*^9, 
   3.633605315902807*^9, 3.633606904495802*^9, 3.633607049301675*^9, 
   3.633607565556923*^9, 3.6336086167499027`*^9, 3.633608669218884*^9, 
   3.633875995655719*^9, 3.633876030490554*^9, 3.633876138542201*^9, 
   3.633876187034314*^9, 3.634398689817636*^9, 3.6594614809053802`*^9, 
   3.65946154092597*^9, 3.659461581686516*^9, 3.661008925320341*^9, 
   3.661084756758461*^9, 3.673866269051647*^9, 3.6738669988318157`*^9, 
   3.673868966358404*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.610984476370016*^9, 3.610984479394001*^9}}],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{{3.612617973673684*^9, 3.61261797507331*^9}}]
},
WindowSize->{723, 848},
WindowMargins->{{Automatic, 564}, {Automatic, 0}},
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 109902, 2550, 12337, "Input"],
Cell[110484, 2574, 3085, 44, 28, "Output"],
Cell[113572, 2620, 3139, 45, 28, "Output"],
Cell[116714, 2667, 3205, 48, 35, "Output"],
Cell[119922, 2717, 3197, 48, 28, "Output"],
Cell[CellGroupData[{
Cell[123144, 2769, 632, 12, 21, "Print"],
Cell[123779, 2783, 799, 17, 21, "Print"],
Cell[124581, 2802, 803, 17, 23, "Print"],
Cell[125387, 2821, 632, 12, 21, "Print"],
Cell[126022, 2835, 1740, 33, 98, "Print"],
Cell[127765, 2870, 1742, 33, 97, "Print"],
Cell[129510, 2905, 2905, 55, 98, "Print"],
Cell[132418, 2962, 681, 13, 22, "Print"],
Cell[133102, 2977, 1013, 21, 22, "Print"],
Cell[134118, 3000, 2367, 45, 98, "Print"],
Cell[136488, 3047, 643, 12, 21, "Print"],
Cell[137134, 3061, 938, 20, 22, "Print"],
Cell[138075, 3083, 819, 17, 23, "Print"],
Cell[138897, 3102, 823, 17, 23, "Print"],
Cell[139723, 3121, 783, 16, 21, "Print"],
Cell[140509, 3139, 819, 17, 22, "Print"],
Cell[141331, 3158, 829, 17, 22, "Print"],
Cell[142163, 3177, 639, 12, 21, "Print"],
Cell[142805, 3191, 936, 20, 22, "Print"],
Cell[143744, 3213, 829, 17, 24, "Print"],
Cell[144576, 3232, 830, 17, 23, "Print"],
Cell[145409, 3251, 779, 16, 21, "Print"],
Cell[146191, 3269, 819, 17, 22, "Print"],
Cell[147013, 3288, 643, 12, 21, "Print"],
Cell[147659, 3302, 934, 20, 22, "Print"],
Cell[148596, 3324, 831, 17, 23, "Print"],
Cell[149430, 3343, 831, 17, 23, "Print"],
Cell[150264, 3362, 919, 20, 21, "Print"],
Cell[151186, 3384, 819, 17, 22, "Print"],
Cell[152008, 3403, 643, 12, 21, "Print"],
Cell[152654, 3417, 940, 20, 22, "Print"],
Cell[153597, 3439, 903, 20, 22, "Print"],
Cell[154503, 3461, 833, 17, 24, "Print"],
Cell[155339, 3480, 830, 17, 23, "Print"],
Cell[156172, 3499, 819, 17, 22, "Print"],
Cell[156994, 3518, 632, 12, 21, "Print"],
Cell[157629, 3532, 799, 17, 21, "Print"],
Cell[158431, 3551, 803, 17, 23, "Print"],
Cell[159237, 3570, 632, 12, 21, "Print"],
Cell[159872, 3584, 1736, 33, 98, "Print"],
Cell[161611, 3619, 1742, 33, 97, "Print"],
Cell[163356, 3654, 2909, 55, 98, "Print"],
Cell[166268, 3711, 685, 13, 22, "Print"],
Cell[166956, 3726, 1013, 21, 22, "Print"],
Cell[167972, 3749, 2367, 45, 98, "Print"],
Cell[170342, 3796, 643, 12, 21, "Print"],
Cell[170988, 3810, 938, 20, 22, "Print"],
Cell[171929, 3832, 816, 17, 23, "Print"],
Cell[172748, 3851, 823, 17, 23, "Print"],
Cell[173574, 3870, 780, 16, 21, "Print"],
Cell[174357, 3888, 819, 17, 22, "Print"],
Cell[175179, 3907, 829, 17, 22, "Print"],
Cell[176011, 3926, 643, 12, 21, "Print"],
Cell[176657, 3940, 938, 20, 22, "Print"],
Cell[177598, 3962, 825, 17, 24, "Print"],
Cell[178426, 3981, 830, 17, 23, "Print"],
Cell[179259, 4000, 780, 16, 21, "Print"],
Cell[180042, 4018, 819, 17, 22, "Print"],
Cell[180864, 4037, 643, 12, 21, "Print"],
Cell[181510, 4051, 938, 20, 22, "Print"],
Cell[182451, 4073, 828, 17, 23, "Print"],
Cell[183282, 4092, 831, 17, 23, "Print"],
Cell[184116, 4111, 916, 20, 21, "Print"],
Cell[185035, 4133, 815, 17, 22, "Print"],
Cell[185853, 4152, 643, 12, 21, "Print"],
Cell[186499, 4166, 938, 20, 22, "Print"],
Cell[187440, 4188, 899, 20, 22, "Print"],
Cell[188342, 4210, 826, 17, 24, "Print"],
Cell[189171, 4229, 830, 17, 23, "Print"],
Cell[190004, 4248, 819, 17, 22, "Print"],
Cell[190826, 4267, 628, 12, 21, "Print"],
Cell[191457, 4281, 799, 17, 21, "Print"],
Cell[192259, 4300, 800, 17, 23, "Print"],
Cell[193062, 4319, 632, 12, 21, "Print"],
Cell[193697, 4333, 1736, 33, 98, "Print"],
Cell[195436, 4368, 1742, 33, 97, "Print"],
Cell[197181, 4403, 2905, 55, 98, "Print"],
Cell[200089, 4460, 685, 13, 22, "Print"],
Cell[200777, 4475, 1009, 21, 22, "Print"],
Cell[201789, 4498, 2363, 45, 98, "Print"],
Cell[204155, 4545, 643, 12, 21, "Print"],
Cell[204801, 4559, 940, 20, 22, "Print"],
Cell[205744, 4581, 816, 17, 23, "Print"],
Cell[206563, 4600, 816, 17, 23, "Print"],
Cell[207382, 4619, 776, 16, 21, "Print"],
Cell[208161, 4637, 815, 17, 22, "Print"],
Cell[208979, 4656, 825, 17, 22, "Print"],
Cell[209807, 4675, 643, 12, 21, "Print"],
Cell[210453, 4689, 936, 20, 22, "Print"],
Cell[211392, 4711, 826, 17, 24, "Print"],
Cell[212221, 4730, 829, 17, 23, "Print"],
Cell[213053, 4749, 776, 16, 21, "Print"],
Cell[213832, 4767, 815, 17, 22, "Print"],
Cell[214650, 4786, 639, 12, 21, "Print"],
Cell[215292, 4800, 940, 20, 22, "Print"],
Cell[216235, 4822, 831, 17, 23, "Print"],
Cell[217069, 4841, 828, 17, 23, "Print"],
Cell[217900, 4860, 913, 20, 21, "Print"],
Cell[218816, 4882, 815, 17, 22, "Print"],
Cell[219634, 4901, 643, 12, 21, "Print"],
Cell[220280, 4915, 940, 20, 22, "Print"],
Cell[221223, 4937, 904, 20, 22, "Print"],
Cell[222130, 4959, 833, 17, 24, "Print"],
Cell[222966, 4978, 833, 17, 23, "Print"],
Cell[223802, 4997, 819, 17, 22, "Print"],
Cell[224624, 5016, 3858, 78, 310, "Print"]
}, Open  ]],
Cell[228497, 5097, 3108, 44, 28, "Output"]
}, Open  ]],
Cell[231620, 5144, 146, 2, 63, "Input"],
Cell[231769, 5148, 92, 1, 28, "Input"]
}
]
*)

(* End of internal cache information *)
